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Foreword 


The powerful Amiga from Commodore has been supported by 
COMPUTE! Publications right from the beginning. And COM- 
PUTE! Books continues this support with COMPUTE!'s First 
Book of Amiga, a collection of some of the best programs and 
articles from COMPUTE!, plus some previously unpublished 
programs and articles. 

For game players we've included both strategy and fast- 
action games. “Hex War,” “Switchbox,” and “Chain Reaction’” 
will challenge your mind. And for quick action there's “UFO 
Invasion” and “Biker Dave.” 

Use your computer for education with ‘Hickory, Dickory, 
Dock,” an entertaining and easy way for preschoolers to learn 
to tell time (using both traditional and digital clocks). How 
well do you know your United States-geography facts? Find 
out playing “Pioneer,” a game for one to four players which 
includes a detailed map of the U.S. as well as mouse control. 

COMPUTE!’s First Book of Amiga includes plenty of helpful 
programming tips, too. See how to create requester windows 
in an Amiga BASIC program and how to write batch files 
which can customize the Amiga’s startup procedure. Learn to 
use the Amiga’s built-in editor program, ED, and explore pro- 
gramming in Modula-2. 

Telecommunications is one of the more popular uses for 
personal computers. COMPUTE"’s First Book of Amiga’s power- 
ful terminal program, “AmigaTerm,” operates at both 300 and 
1200 bps. AmigaTerm includes the most asked-for features in 
terminal software, including macros and autodialing. 

All the programs in COMPUTE!’s First Book of Amiga have 
been fully tested and are ready to type in and use. If you pre- 
fer not to type in the programs, there’s a companion disk 
available for purchase which includes all the BASIC programs 
from the book ready to load and mun. To order the COMPUTE!’s 
First Book of Amiga disk, call toll-free 1-800-346-6767 (in NY 
212-887-8525) or use the coupon in the back of this book. 
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Tug-o-War 


Mark Tuttle 
Translation by John Krause 


Don’t be fooled by the apparent simplicity of this two- 
player strategy game. It looks easy on the surface, 
but it’s a stiff test of your concentration and ability to 
think ahead. A color monitor or TV and at least 512K 
RAM required. 


Nearly everyone has played tug of war at one time or another. 
The traditional game pits two players or teams at opposite 
ends of a rope. At the middle of the rope is a flag, and each 
side tries to pull the flag into its territory. ‘“Tug-o-War” is 
based on a similar concept. In this version, the flag is replaced 
with a round ball shape, and each player tries to maneuver 
the ball onto his or her side of the screen, Like many two- 
player games, the difficulty of Tug-o-War depends somewhat 
on the intelligence of your opponent. But even at the simplest 
level, you'll find that skill and foresight are essential to success. 

Type in and save the program to disk. Before running the 
program set the screen to 80 columns by clicking on the Prefer- 
ences icon and setting the proper width. To run the program 
select Start from the Run menu. 


Battle of the Colors 

When you run Tug-o-War, two sets of colored boxes appear, 
one above the other. The lower, longer series of squares is the 
playing field. Near the middle of this area is a round ball; the 
outermost boxes at each end of the playing field represent each 
player’s home position. The players alternate turns, each trying 
to move the bail in his or her own direction, until it reaches 
one of the home squares. 

So far, so good—but how do you move the ball? It’s not 
done by pulling a rope, but by changing the colors of boxes in 
the playing field. The color of the square under the ball deter- 
mines which direction it moves and how far it travels. On any 
given turn, the ball can move either one or two squares to the 
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left, or one or two squares to the right. At the top of the screen 
are four boxes that show you which colors are linked to which 
directions. For instance, the leftmost box shows you which 
color makes the ball move one square to the left. The next box 
to the right shows you which color makes it move two squares 
to the left. The second pair of boxes show you which colors 
make the ball move in the opposite direction, to the right. By 
changing the color of the box where the ball is currently lo- 
cated, you can make it move toward your home square. 

The playfield contains 11 boxes. When the game begins, 
each of these boxes is randomly given one of the four colors 
shown at the top of the screen, On each turn, you may change 
the color of one, several, or all of the boxes (however, you must 
always change at least one box). To select a square, simply 
move the mouse pointer to the desired box and press the left 
mouse button. 

Where do the new colors come from? Every box cycles 
through the same series of four colors shown in the uppermost 
set of boxes, going from left to right. For example, if the colors 
shown there are yellow/purple/red/blue, then a yellow square 
always changes to purple; a purple square always changes to 
red; a blue square changes to yellow; and so on. In other 
words, the box’s current color determines which color it gets 
after the next color change. 

Though every turn involves at least one color change, the 
ball doesn’t necessarily move on every turn. It only moves 
when you change all the boxes between your home position 
and the current position of the ball. For example, if the ball is 
three boxes away from your home square, then you must change 
the color of at least three boxes in order to move it at all. 


Foresight Rewarded 
As you can see, there’s much more to this game than appears 
on the surface. At first you might be tempted to try to move 
the ball as often as possible. But that’s usually a losing strat- 
egy. Remember, the direction the ball moves depends on the 
color of its square before you take the turn. 

In many cases, you'll want to move the bail only if it’s on 
a color that moves it toward your goal: But like other games of 
strategy, Tug-o-War rewards the player who looks beyond the 
current move and tries to set things up for future moves; 
sometimes it’s wise to make a small, temporary sacrifice in or- 
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der to benefit later in the game. Because the boxes change col- 
ors in the same sequence, the effect of your own move is 
always completely predictable. However, since a single turn 
can change the color of many boxes, dramatic changes of for- 
tune are also possible. 


Tug-o-War 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


SAY TRANSLATES ("") € 
SCREEN 2,320, 200,3,1« 

WINDOW 2," Tug-o-War “,,12,2€ 
FOR i=@ TO 7< 

READ r,g,b¢ 

PALETTE i,r,g,bé€ 

NEXT< 

RANDOMIZE TIMERS 

DIM atitre 

FOR i=1 TO 11< 

(i) =INTCRND (1) $4) 44€ 


NEXT€ 

row=3¢ 

col=3:colr=4:GOSUB frame:GOSUB square< 
square< 
square< 
square¢ 


row=19€ 


LOCATE 5,11:COLOR 1,4:PRINT "2"< 
LOCATE 5,24:COLOR 1,5:PREINT "1"<¢ 
LOCATE S,26:COLOR 1,6:PRINT “1"<€ 
LOCATE 5,29:COLOR 1,7:PRINT "2"< 
LINE (64, 34)-STEP(-16,9),1< 
LINE -STEP(8, 4), 1¢€ 

LINE (48,36) -STEP(8,-4),1¢ 

LINE (248,36)-STEP (16,9), 1¢€ 
LINE -STEP(-8, 4), t<€ 

LINE (264, 36)-STEP{-8,-4) ,1€ 
FOR col=6 TO 12¢ 

GOSUB frame< 

NEXTE 

col=9:colr=3:GOSUB squareé 
cel=12:colr=2:G0SUB square<¢ 
dot=6:GOSUB update< 

SAY TRANSLATES (“welcome ta tug o war. ")<€ 
tmainz€ 

LOCATE 17, 15<€ 

IF red THEN€ 

COLOR 2,9:PRINT “Red’s turn "< 
SAY TRANSLATES ("reds turn. ")<€ 
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ELSE< 

COLOR 3,@:PRINT “Blue’s turn”< 

SAY TRANSLATES ("blues turn. ")< 

END IF€ 

WHILE MOUSE (@)<>1 OR MOUSE(4)<8@ OR MOUSE (4)>104 OR 
MOUSE (3)<23 OR MOUSE (3) >276¢€ 

WEND€ 

click=INT (MOUSE (3) /24)< 

IF (red AND click<=dot) OR (red=6 AND click>=dot) T 
HEN <€ 


temp=dot< 
IF a(temp)=4 THEN dot=dot-2¢ 
IF a(temp) THEN dot=dot-1<¢ 


THEN dot=dot+l<¢ 

IF a(temp)=7 THEN dot=dot+2<¢ 

END IF€ 

IF red THEN¢ 

FOR i=click TO 11¢€ 

alid=alid+tée 

IF a(i)=8 THEN a(i)=4¢ 

NEXT<€ 

ELSE< 

FOR i=1 TO click¢ 

acidsacidt1e 

IF a(i)=8 THEN a(id=4¢ 

NEXT€ 

END IF< 

IF dot>t1 THEN€ 

dot=12:GOSUB update< 

LOCATE 17,15:COLOR 2,0:PRINT “ Red wins! “<€ 
SAY TRANSLATES("red wins. ")< 

GOTO quit< 

END IF¢ 

IF dot<i THEN< 

dot=@:GOSUB update< 

LOCATE 17,15:COLOR 3,@:PRINT “Blue wins 
SAY TRANSLATES ("blue wins.”")<¢ 

GOTO quit¢ 

END IF< 

GOSUB update< 

red=1-redé 

GOTO main < 

frame: € 

x=24: IF 24%co1>280 THEN x=23< 

LINE (24%c0l, 8%row) -STEP (x, 24),1,b¢ 
RETURNE 

square:¢ 

4=22:1F 24¢colt+1>Z28@ THEN x=21< 
LINE (24tcol+1, 8%rowtt) -STEP (x, 22) ,coir,bf€ 
RETURNE 

update: <€ 
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FOR col=1 TO 11¢€ 
colr=a(col):GOSUB squareé 

NEXT€ 

CIRCLE (24kdot+11,91),5, 1¢€ 

PAINT (24%dot+11,92),1€ 

RETURN < 

quiti< 

LOCATE 19,7:COLOR 1,@:PRINT “Click mouse to play ag 
ain."€ 

SAY TRANSLATES ("click mouse to play again.")€ 

WHILE MOUSE (9) =@: WEND< 

RUNE 

DATA .5,.5,.5,5,9,9,1,9,5,0,8,1,9,1,9,1,1,5,1,9,1,9 
at, té 
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UFO Invasion 


John Robinson 
Translation by Philip I. Nelson 


A classic confrontation game, “UFO Invasion” pits 
you, the lone defender, against a horde of deadly 
machines from outer space. 


You are at the controls of a surface-to-air missile launcher lo- 
cated somewhere near the Arctic Circle. Your radar outposts 
have detected a fleet of unidentified flying objects (UFOs) in- 
vading the North American continent. Forewarned about this 
possibility, you know that the waves of UFOs will attack your 
missile site before proceeding to the more populous areas lying 
southward. Are you up to the challenge? 

Though it’s not a particularly long program, “UFO Inva- 
sion” offers quite a test for your gaming skills, particularly at 
the higher levels. 


Typing It In 


Type and save the program to disk. To run the program select 
Start from the Run menu. 


First Line of Defense 

When UFO Invasion begins, you'll hear the sound of an alarm 
siren and see two warning messages scroll across the screen, 
The middle of the screen contains your control panel. The ob- 
servatory window at the top gives you a direct view of the 
skyline in your defense sector. Within the window is the aim- 
ing crosshairs pointer for your missile launcher, and directly 
below is a radar screen. 

When the saucer-shaped UFO appears, your job is to 
move the crosshairs onto the UFO (using the cursor keys) and 
launch a missile at it (by pressing the space bar). If your mis- 
sile hits the UFO, the automated craft is vaporized immediately, 

Before it can fire at your base, the UFO must locate your 
position. Once your position is located, the UFO is certain to 
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hit the mark. Your force shields are powerful enough to pro- 
tect you against three hits by the UFO, but the fourth hit neu- 
tralizes your defenses and paves the way for a successful 
invasion (ending the game as well). 


Control Panel 

The control panel is equipped with six gauges to help you 
monitor events. On each side of the circular radar screen are 
two ladder gauges. The gauge at the far right shows you how 
many UFOs remain to be eliminated in the current level. 
There are eight levels in all; you must eliminate 29 UFOs at 
each level before advancing to the next. 

The gauge directly to the right of the radar screen indi- 
cates how close the UFO is to locating your position, When 
this indicator reaches the top, the UFO scores a hit. 

The gauge at the far left shows your points for the current 
level. You receive 100 points (shown as one bar on the ladder) 
for each UFO you destroy, with an additional bar for hitting 
the UFO before the timer is halfway to the top. If you score 
two bars for every UFO on the current level, you receive a bo- 
nus equal to 1000 points times the level number. 

Directly underneath the radar screen are two additional 
indicators that show you how many levels have been com- 
pleted, and how many hits your shields have sustained, 

Press the cursor keys to move the aiming crosshairs left, 
tight, up, or down. To fire a missile, press the space bar. You 
can quit the game at any time by pressing Q. In levels 1, 2, 4, 
6, and 8 you can view the UFOs through the observatory win- 
dow. In levels 3, 5, and 7 the sky is obscured by a thick cloud 
cover, forcing you to guide the missiles by radar alone. The ra- 
dar screen shows the position of the UFO in relation to your 
aiming crosshairs. Aim with the cursor keys until the red dot 
is in the center of the radar panel; then fire. 


UFO Invasion 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


* UFO Invasion for Amiga< 

+ 

DEFINT A-Z<€ 

RANDOMIZE TIMER< 

SCREEN 1, 326, 288, 2, 1¢€ 

WINDOW 1,°UFO Invasion", (@,9}-—(311, 185), 20, 1¢ 
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PALETTE 9,9,8,¢ 

PALETTE 1,1,1,1¢ 

PALETTE 2,0,1,9¢ 

PALETTE 3,1,9,8¢ 

cLs<¢ 

DIM SH(2988) , UFO(29G) ,GD(288)< 
DIM X(39) , ¥ (38) ,Radar (SG) < 
L=1: TL=8: Lives=@: Score=S< 
RX=199/15: RV=5G/12€ 

LINE (1121,51)~(211, 159) ,3, Be 
LINE (121, 191)-(211,191),3<€ 
LINE (121,161)-(121, 159), 3¢€ 
LINE (131, 161)-(131, 159) ,3€ 
LINE (191, 191)-¢€191, 159) ,3¢€ 
LINE (281,191)-(281, 159) ,3<€ 
FOR Y=157 TO 193 STEP -2¢€ 
LINE (111, Y)-¢131,Y),3€ 
LINE (191,Y)-(211,Y),3€ 
NEXT< 

CIRCLE (161, 126),16,1¢€ 
CIRCLE (161, 128),10,1¢ 
CIRCLE (161,129) ,4,1¢ 

LINE (146, 126)—(176,128),1€ 
LINE (161,198)—(161,132),1¢ 
FOR X=145 TO 173 STEP 4¢€ 
LINE (X, 135)—(%+44, 149) ,3, Bé 
NEXT<€ 

FOR x=154 TO 142 STEP 4< 
LINE (X, 147)-(%44, 151), 3, Bé 
NEXT€ 

LINE (1,0)-(6,9),1€ 

LINE (6,1)-(7,1),1€ 

LENE (1,2)-(7,2),3¢€ 

LINE (9,3)-(7,5),1¢€ 

LINE (1,4)-(6,4),1¢€ 

GET (@,0)-(7, 4) ,UFOE 

LINE (@,9)-(7,7),9,bf€ 
LINE (8,3)-(4,3),2¢ 

LINE (2,1)-(2,5),2€ 

GET (8,8)-(S,5), GD<€ 

LINE (8,6)—(7,7),9,bf<€ 
LINE (8,9)-(1,1),2,bf€ 

GET (9,9)-(1,1),Radar<¢ 

PUT (@,9),Radar< 

GOSUB Siren< 

BS=" Enemy Alert "“< 

GOSUB PrintMessage< 

GOSUB Siren<¢ 

Bt=" UFO Invasion °<¢ 

GOSUB PrintMessage< 

GOTO NewLevel< 
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< 

€ 

PrintMessage: < 

FOR J=1 TO 39€ 

LOCATE 1,3¢€ 

SOUND 490+(3419),.1¢€ 

PRINT LEFTS (BS, 49-3) <€ 

NEXT< 

RETURN€ 

< 

€ 

Sirens< 

FOR J=1 TO 168¢€ 

FOR P=199@ TO 1908 STEP SS€ 

SOUND P,.2¢ 

NEXT€ 

NEXT< 

RETURN€ 

€ 

€ 

NewLevel :¢ 

B=169; Pts=0: T=0< 

FOR S=158 TO 162 STEP -—2<¢ 

LINE (262,S)-(210,8),2€ 

NEXT€ 

IF &s3 OR L=S OR L=7 THEN clr=@:G0TO Mip ELSE cir=1 
<€ 

FOR S=1 TO 49¢ 

PSET (112+RND*98, 52+RND#48) , INT (RNDS4) < 

SOUND 1590+ INT (RND(1) #1900),.1¢ 

NEXT€ 

Mipr< 

S=109: Xu=112+RND&9ge 

Yu=52+RNDS4g¢ 

IF clr THEN PUT (Xu, Yu) ,UFO€ 

xg=168: yg=75€ 

PUT (xg, yg) ,GD¢ 

LINE (1424.84, 136)- (1444184, 139), 1,bf< 

€ 

< 

Mai nlLoop: < 

X$=INKEYS: IF UCASES(X$)="Q" THEN Quité 

IF X#="" OR X$<CHR$(28) OR X$>CHR®(32) THEN Skip¢ 
ON ASC(X$)-27 GOTO Up, Down, Right, Left, Hite 
GOTO Skip< 

Up 
Cyg=Cyg-S:GOTO Skip< 
Down: € 
Cyg=Cyg+5:60TO Skipe 
Right:< 
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Cxg=Cxg+5:GOTO Skip< 

Leftr< 

Cxg=Cxq-5:GOTO Skip< 

Hits< 

Fired=1< 

< 

€ 

Skips< 

PUT (xq, yq),GD< 

xg=xgtCxg< 

IF xg>20@ THEN xg=2@9 ELSE IF xg<112 THEN xg=112¢ 
yorygtCyg¢ 

IF yg>9@ THEN yg=9 ELSE IF yg<52 THEN yg=S2< 
Cxg=8: Cyg=a< 

PUT (xg, yg), GD€ 

IF RND<.2 THEN Cxu=RND*%19~S: Cyu=RNDS4—S€ 

IF cle THEN PUT (Xu, Yu),UFO<¢ 

Xu=XutCxue 

IF Xu>2@@ THEN Xu=298 ELSE IF Xu<ii2 THEN Xu=112¢ 
Yu=VYutCyu<¢ 

IF Yu>9@ THEN Yu=9@ ELSE IF Yu<S2 THEN Yu=52¢ 
IF cle THEN PUT (Xu, Yu) ,UFO¢ 

IF NotFirst THEN PUT (Xr, Yr),Radar< 
NotFirst=1< 

Xr=161+ (Xu-xg) /RX€ 

Yr=120+ (Yu-yg) /RY€ 

PUT (Xr, ¥r),Radar€ 

IF Fired THEN GOSUB Shoot: IF S=158 THEN AllGone< 
THT+1€ 

IF T>Ti THEN B=B-2: T=@:LINE(192,B)~(200,B),2:IF B=1 
@2 THEN GOSUB TakeShot< 

GOTO MainLoop< 

< 

€ 

Quits< 

B$="_ Game stopped"< 

Score=ScoretPtss 1004aL< 

60TO GameDver< 

< 

€ 

Shoot:< 

IF clr THEN PUT (Xu, Yu) ,UFG€ 

LINE (168, 199)-(xgt3, yar), 2€ 

FOR J=5@ TO 1999 STEP 266¢ 

SOUND J,.1¢€ 

NEXT€ 

Fired=0< 

LINE (169, 106) —-(xgt3, yate) , B< 

IF xgt3>Xu AND xg+3<Xu+9 AND yg+4>Yu AND ygt3<Yutée 
THEN HitUFO< 

IF clr THEN PUT (Xu, Yu), UFD< 
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RETURNE 
mo 
: < 
HitUFO: < 
‘a PUT (xg, yg) ,GD< 
: FOR e=1 TO 30¢ 
X Ce) =Xu+RNDSG+1€ 
¥ Ce) =VYutRNDtt1le 
PSET (X(e), Ye), 2€ 
SOUND 829,.1< 
NEXT€ 
FOR e=1 TO 30€ 
PRESET (X(e), Ve) <€ 
NEXT€ 
IF clr THEN PSET (Xu+RND%6+1, YutRND&4+1), INT (RNDS4) 
<€ 
Xu=112+RNDS9S< 
Yu=52+RND&4G< 
IF clr THEN PUT (Xu, Yu) ,UFO¢ 
PUT (xg, yg) ,GD¢ 
AddScore:< 
S=S+2<¢ 
LINE (262, S)-(219,S) ,0€ 
Pts=Ptst+i¢ 
GOSUB Here< 
IF B>139 THEN Pts=Pts+1:GOSUB Here¢ 
FOR X=B TO 168 STEP 2¢ 
LINE (192, X)~ (260, X) ,O€ 
NEXT€ 
B=169¢ 
RETURN€ 
€ 
€ 
Here:<€ 
Hx#1122 Hy=269-Ptst2¢ 
IF Pts>29 THEN Hx=122:Hy=16@-(Pts-29) £2€ 
LINE (Hx,Hy)—(Hx+8,Hy) ,1€ 
oI RETURNE 
€ 
€ 
AllGone: < 
L=lL+1: TL=TL-1<€ 
FOR P=192 TO 158 STEP 2< 
LINE (112,P)—(126,P),@€ 
os, LINE (122, P)-(138,P) ,d< 
1 NEXT€ 
LINE (112, 52)- (289,99) ,9,bf€ 
=<, Score=Score+Pts% (L-1)8196¢ 
> | IF Pts<S8 THEN GOTO Theree 
* FOR J=5@6 TO 2599 STEP soB< 
SOUND J, 2¢ 
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NEXT€ 

BS=" You passed Level "“+STRS(L-1)€ 
GOSUB PrintMessage< 
BS=STRS (19604 (1-1)}+" Points banus"<€ 
BOSUB PrintMessage< 

FOR J=1 TO 2690€ 

NEXT€ 

Scor e=Scor e+ 199@% (L-1)< 

IF L=9 THEN PlayerWins¢ 
Theres € 

IF L>8 THEN PlayerWins<¢ 
BS=" Level "+STRS(L><€ 
GOSUB PrintMessage< 

FOR J=1 TO 1590<¢ 

NEXT< 

GOTO NewLevel< 

< 

< 

TakeShot:<¢ 

PUT (xg, yg) ,GD<€ 

IF clr THEN PUT (Xu, Yu) ,UFO€ 
Xb=Xut4: Yb=Yutd€é 

LINE (Xb, Yo) — (112, 196) ,2€ 
LINE (Xb, Yo)-(219, 169), 2€ 
LINE (Xb, Yu)—(112,52) ,2€ 
LINE (Xb, Yu)~(218,52),2€ 
LINE (Xb, Yb)~(112, 100) ,B<¢ 
LINE (Xb, Yb)-(218, 198) ,B< 
LINE (Xb, Yu)—(112,52) ,B€ 
LINE (Xb, Yu) —(219,52) ,@€ 
IF cir THEN PUT (Xu, Yu),UFO¢ 
PUT (xg, 9), GD 

PALETTE 0,1,9,9<€ 

FOR K=499 TO S@8< 

SOUND K,.1¢ 

NEXT<€ 

PALETTE 9,6,9,9¢ 
Pts=Pts-2¢ 

IF Pts<@ THEN Pts=@¢ 

IF Lives=3 THEN UFOgotcha<¢ 
FOR X=162 TO 158 STEP 2¢ 
LENE (192, X)- (266, X) ,G< 
NEXTE 

B=148€ 

Lives=Livesti¢ 

LINE (£51+4#Lives, 148) -(153+48Lives, 150), 2,bF< 
RETURNS 

* 

€ 

UFOgotcha:< 

PALETTE 9,1,9,9¢ 
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FOR J=499 TO S99 STEP 3¢€ 
SOUND J,.1<€ 

NEXT< 

FOR J=<5@@ TO 490 STEP -3<¢ 
SOUND J,.1¢ 

NEXT€ 

PALETTE 6,0,0,0¢ 

BS=" Game Over"< 

GOTO GameOver< 

€ 

€ 

PlayerWins:<¢ 

B=" You win!"< 

GOSUB WinSound< 

€ 

€ 

GameOver : < 

BOSUB PrintMessage< 

ct=" Score"+STR* (Score) < 
FOR J=1 TO 15¢€ 

LOCATE 1,J€ 

PRINT LEFTS(c%, 40-3) < 
NEXT¢€ 

CleanBuf fer: < 

IF INKEY$<>"" THEN CleanBuffer<é 
LOCATE 23, 9¢ 

PRINT “Press Y to play again";< 
Xone 

WHILE Xs=""€ 

XS=INKEYSE 

WEND< 

IF UCASES(X%)="Y¥" THEN RUN€ 
Cus: END< 

€ 

€ 

WinSound: € 

FOR J=1 TO 2¢€ 

RESTORE MusicData¢ 
SoundLoop: < 

READ x<€ 

IF X<>6SS35& THEN< 

SOUND X,1¢ 

GOTO SoundLoop< 

END IF¢ 

NEXT€ 

SOUND 556, 8¢ 

RETURNE 

< 

<€ 

MusicData: ¢ 
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DATA 558, 508, 459, 409, 350< 
DATA S56, SOO, 459, 490, 350< 
DATA 398, 359, 499, 450, 500< 
DATA 65535<€ 

€ 
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Tightrope 


Daniel Aven 
Translation by Patrick Parrish 


Stretched high above the circus arena, the tightrope 
beckons. Can you walk all the way across the rope 
without falling into the net? This interesting program 
is both an arcade game and a typing tutor. Requires 
512K of memory. 


Arms outstretched, you venture cautiously onto the tightrope. 
The rope quivers for a moment, then steadies. Far below, in a 
packed circus tent, the crowd roars its encouragement. Don’t 
worry; there’s a safety net below. But you won’t entertain the 
onlookers—or earn points in this game—by falling into the 
net. Your first few steps are hesitant, but with practice your 
progress becomes more sure. After what seems an eternity, 
you reach the other side. The crowd cheers its approval and 
cries out for a repeat performance. 

“Tightrope” combines a novel game idea and realistic ani- 
mation with an educational goal. You can play it either as an 
arcade game or as a typing tutor. In game mode, the object is 
to help the acrobat walk all the way across the tightrope with- 
out falling into the net. In tutorial mode, you must watch for a 
letter to appear next to the acrobat’s head and type it on the 
keyboard before time runs out. 


A Delicate Balance 

If you choose the game of skill, your goal is simple: Move the 
animated acrobat all the way across the tightrope without fall- 
ing into the net. As the acrobat walks along, he'll occasionally 
begin to fall to one side or the other. But there’s always time 
to help him recover his balance by pressing the Z key to move 
him to his left or the slash (/) key to move him to his right. If 
you countermove just enough to enable the acrobat to regain 
his balance, all is well, and he begins to walk again. If you 
move too far in the opposite direction, the teetering starts all 
over again. 
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“Tightrope” requires 512K 
of memory and uses key- 
board controls. 


It’s a delicate balancing act, and it grows more difficult 
each time the acrobat makes it across the rope. When you suc- 
ceed in moving him to the opposite side, you advance to the 
next skill level. At each higher level, it becomes more and 
more difficult to keep him balanced. 

If he loses his balance completely, the acrobat falls to the 
safety net and bounces a few times before coming to rest. At 
this point, you can try again at the same level or return to the 
main menu to choose a different game. 

Your score is based on how far the acrobat gets before 
falling. Each successful step is worth a certain number of 
points, and this value increases at higher levels. In addition, 
bonus points are awarded for rapid progress—the faster you 
move the acrobat across the rope, the higher the bonus. 


Typing Tutor 

In the tutorial version of Tightrope, the object is the same— 
move the acrobat across the rope without falling—but differ- 
ent means are used to help him keep his balance. 

When you see a character appear next to the acrobat’s 
head, that’s your cue to press the corresponding key on the 
keyboard. If you type the correct letter, the acrobat straightens 
up. If you press the wrong key, a buzzer sounds, and the acro- 
bat teeters even more. 

To remain on the rope, you must continue to type the same 
letters as those which appear on the screen. In other respects, 
the tutorial version of Tightrope is the same as the skill game. 
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Typing It In 

Type in and save the program to disk. Before running the pro- 
gram, set the screen to 80 columns by clicking on the Prefer- 
al ences icon and setting the proper width. To run the program, 
select Start from the Run menu. 


~ Tightrope 
| The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


GOSUB setup:GOTO 70< 
PUT (X,Y) 43, PSETs RETURNE 
PUT (X,Y) ,w2, PSET: RETURNS 
PUT (X,Y),w1,PSET: RETURNG 
PUT (X,Y),11,PSET: RETURN 
PUT (X,Y) ,12,PSETs RETURNE 
PUT (X,Y), 13,PSETs RETURNS 
PUT (X,Y) ,r1,P8ET: RETURNG 
PUT (X,Y) ,¢2, PSETs RETURNG 
PUT (X,Y) ,r3, PSET: RETURNG 
18 PUT (X,Y) ,w4,PSET! RETURNG 
28 JV=G1 as=UCASE ( INKEYS) < 
IF a$=CHR®(47) THEN < 

JVa1 1 AV=at RETURNE 

END IF< 

IF a$=CHR®(90) THENS 
dVeZ21AVe@:RETURN < 

END IF¢ 

21 AVZAV+1E 

IF AV=b%4 THEN AV@d: RETURNG 
22 GOTO 20¢ 

23 PAINT (26$RND (1) +1¢ 
XOmINT (X/8) tr 2mr 14646 
ae@1LOCATE 3,X9sPRINT CHRS (r2)< 
24 a$=UCASES (INKEY®) :amati< 
IF amb THEN¢ 

Mizz<¢ 

G0SUB 1778:G0TO 30< 

END IF< 

25 IF aS="" THEN 24¢ 

26 IF aS=CHRS(r2) THENE 
Minté 

GOSUB 1749:G0TO 30< 

END IF< 

27 Mi=2:G0SUB 1770¢ 

38 LOCATE 3,X9:PRINT " "<€ 
RETURN 

31 T3m3RINT (TIMER-T2)< 
T=1800-TS: IF T<® THEN T=#< 


VONOUSUNKS 
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32 RETURNE 

7@ CLS:FOR X=@ TO 34 STEP 34¢ 
FOR J=® TO 2< 

PUT (X88+988, 49) ,614:NEXT J, X€ 
LINE (24, 49)~ (287,48) ,3€ 

75 FOR J=@ TO 38 STEP 3a< 

FOR I=@1 TO 15< 

PUT (386, 188+49) , s15<¢ 

PUT (388+8+(J=38) $16, 189+49) ,816<¢ 
NEXT 1,J€ 

@@ FOR r=1 TO 3:FOR c=6-r TO 36<¢ 
XeRND (1) :ROW=64468r 2 COL =c88<¢ 
IF X<.3 THEN€ 
PUT{COL,ROW),517:G0TO 198¢ 
END IF< 

85 IF X>@.3 AND X<.6 THEN< 
PUT(COL,ROW),s1G:GO0TO 198< 
END IF< 

90 IF X>=.& AND X<.9 THEN€ 
PUT(COL, ROW) ,819:GOTO 190< 
END IF< 

95 LOCATE ROW/8,COL/B:PRINT ” “< 
108 NEXT c,r¢ 

105 LINE (39, 75)-(17, 76) € 
LINE (38, 75)~—(16,96)< 

FOR 1=96 TO 96+7¢ 

LINE (16,1)-(6837-1,1):NEXT 1€ 
197 LINE (23, 2086-1)—(3688, 2088-1) < 
LINE (7,22%8)—(3aa8,2288)< 
LINE (23, 20688)-(7,2288)< 

LINE (3688, 2688-1)-(38%8, 2288) < 
108 FOR r=® TO 1¢€ 

FOR c#3-r TO 35+r< 

PUT (88, (r+25) 88) ,815< 

NEXT cyré 

109 LINE (7,2288)~-(7,2488)€ 
LINE (3888, 2288) - (3848, 2488)< 
LINE (23,2288) —(23, 2388) < 
LINE (3688, 2288) —(3688, 23548) < 
168 Yu19sPX"71P2=18: c=B< 

440 T2=TIMER< 

S@@ IF we2 AND d=G THEN€ 
be1gv< 

END IF€ 

IF ws2 AND d=? THEN < 

bets< 

END IF< 

< 

516 P=@:GOSUB 3e@es<¢ 

FOR x=286 TO 4 STEP -3< 

52@ cectd+1:G08UB 31< 
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550 LOCATE 1,1< 

PRINT “SCORE“c” “TAB(16)"BONUS"T" "3< 
PRINT TAB(31) “LEVEL "d< 

609 f=O:IF X<268 AND X>24 THEN GOSUB 788< 
605 IF #=1 THEN 1980< 

639 PeP+i:IF PmS THEN P=1< 

649 ON P GOSUB 1,2,3,2¢ 

655 JV=s@: as=UCASES (INKEY$):IF ase” “ THEN GOSUB 151 
o<€ 

IF a#=CHR$(47) THEN JV@#1:G0SUB 919<¢ 
660 IF a$=CHR$(96) THEN JV=2:G0SUB 950< 
665 IF #=1 THEN 1080< 

67@ NEXT Xz X=X+3¢ 

GOSUB 3898:GOSUB 16< 

718 cuctT: T#8< 

IF d<9 THEN b=b-2:ded+1< 

IF w=2 AND d<9? THEN b#b-235< 

IF d=9 THEN PX=6:PZ=9< 

778 GOTO 449< 

780 r=INT(9RRND (1) +1¢ 

IF r>2 THEN RETURNE 

800 IF rei THEN 950< 

810 Pe4sPUT (X,Y),11,PSET< 

820 IF w=1 THEN GOSUB 20< 

IF w=2 THEN GOSUB 23< 

849 IF Mi=1 THEN JV=2< 

IF M1=2 THEN JV=1<€ 

869 IF JV=2 THEN< 

P=P-1¢ 

ON P GOSUB ,,3,4,5,6< 

IF P<4 THEN RETURN ELSE 820< 

END IF< 

880 P=P+L:0N P GOSUB ,,,4,5,6< 

890 GOSUB 3i< 

918 LOCATE 1,24:PRINT Te 

928 IF P>3 AND P<PX THEN 829¢ 

930 £21: RETURNE 

950 P=7:PUT (X,Y),r1,PSET< 

960 IF w=l THEN GOSUB 20< 

IF w=2 THEN GOSUB 23< 

980 IF Mi=1 THEN Jv=1< 

IF M1i=2 THEN JV=2<€ 

990 IF JVe1 THEN P=P-t< 

1819 GOSUB 31< 

193@ LOCATE 1,21:PRINT T<¢ 

1948 IF P<7 THEN P=3:RETURNE 

1059 IF JV=1 THENE 

ON P GOSUB ,,,5,5,7:8,9¢ 

BOTO 248< 

END IF<€ 
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1840 P=P+iE 

ON P GUSUB 5555957,8,9¢ 

1870 IF P>& AND P<PZ THEN 969< 
1975 #=1:RETURNC 

1988 Paige 

PUT (X,Y) ,w4,PSETE 

*FALLING MAN< 

1990 Z2023¢ 

FOR Z=Z2 TO 158 STEP 6<€ 

IF Z>Z2 THEN PUT (X,Z-6) ,812¢ 
1100 PUT (X,Z),s12€ 

SOUND (Z+15) #2, .@8¢ 

1119 NEXT 2€ 

PUT (X, Z-6) , 6122 YoY+50< 

1128 FOR Z=15@ TO Y STEP -6¢ 
IF Z<iS@ THEN PUT (X,Z+6) ,813<€ 
1125 PUT (X,Z),s13€ 

SOUND (2+15)#2,1sNEXT Z< 

PUT (X,2+4),813¢€ 

1136 FOR Z=¥ TO 15@ STEP 4<¢ 

IF Z>Y THEN PUT (X,Z~-6),813¢ 
1135 PUT (X,Z),813¢ 

SOUND (Z+15) #2, 1:NEXT Z<€ 

PUT (X,Z-6) , 8132 YaY+30< 

IF YC156 THEN 1129¢ 

1148 PUT (X,Z-6), 813:LOCATE 3,4¢ 


PRINT “Press <RETURN> to play again"<€ 


LOCATE 4,7¢ 
PRINT “Press <SPACE BAR> for menu"< 
1170 aS=INKEVS< 


IF a$<>" “ AND aS<>CHRS(43) THEN 1176¢ 


1160 c=OiM1=9:AVas< 

IF a®@CHR$(43) THEN 70¢ 

GOSUB again:GOTO 70< 

1518 T4eINT(TIMERD< 

1529 aS=INKEYS< 

IF at="" THEN 1520<¢ 

1838 TS=INT (TIMER) : T2=T2+TS-T4< 
RETURN 

1748 SOUND 449, 1: RETURN< 

1778 SOUND 239, 1:RETURN€ 

3088 FOR DE=t TO 490:NEXT:RETURNE 
setup:<€ 

DEFINT L,r,s,we 

SCREEN 1,320,200, 2,1< 

* OPEN WINDOW 3 WITH NO GADGETS OR< 
* tithe BARE 


WINDOW 1,"", (G,8)—(312, 25), 16, 1¢ 
WINDOW “, (6, G)—(311, 185), 16, 1< 
€ 
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WINDOW OUTPUT 3< 

PALETTE %,8,8,9<¢ 

PALETTE 1,.5,1,1¢ 

PALETTE 2,1,0,0¢ 

PALETTE 3,1,1,.1¢ 

WIDTH 49¢ 

cLS<¢ 

DIM voice% (8) ,w4%( 208) < 

GET (8,0)—(25, 20) ,wax%e 
RESTORE VOICEDATA < 

FOR Je® TO B¢ 

READ voicez%(J)< 

NEXT€ 

*’ Speech will be synchronous<¢ 
VOICEDATA: < 

DATA 110,98, 170, 6, 22208, 64,19,1,0< 
« 


talk$="This is Tightrope" < 

LOCATE 12,11¢€ 

PRINT talks< 

GOSUB talk<é 

t= 87 :DIM witt(L< 

FOR I=@ TO LsREAD aS:wi%(1)SVAL ("&h*+a%) INEXT< 
shapedata:< 

DATA 16, 15, 2,30,9,58,8,F8< 

DATA B, 4079, B80, COIS, 1890, 2078, 2009, 1FFF< 

DATA C090, F&, 8, F8,0,F8,8,FR¢ 

DATA 9, F8,9,F8,@, D8, 0, Da< 

DATA 9, D8, 9, 78,0, 38,0, 1C< 

DATA , 18,8, 78,8, 30,0, 78¢ 

DATA @, FQ, 9, 4976, 80S, COSB, 1880, 2078¢ 

DATA 2099, 1FFF,CO99,F8,9,F8,8,F8¢ 

DATA 
DATA 9. 
DATA e, 10,0, 18,9, 78,0, 0< 

L= 87 sDIM w2%(Lr< 

FOR I=® TO L:READ a%: w2% (1) =VAL ("&h"taS) zNEXTS 
DATA 18, 15,2, 38,9,58,0,FR< 

DATA ©, 4979, 888, C930, 1860, 2078, 2000, 1FFF< 

DATA COO@,FS,9,F8,9,F8,S,F8¢ 

DATA 9,F8,@,F@, 8, D8, 0, 198¢ 

DATA 8, 318,9,316,8,316,9,1a8c<e 

DATA 6, 186, 0, 32C, 6, 38,2, 78¢ 

DATA 9,F8,%, 4978, G9, CO3G, 1890, 2078¢ 

DATA 2009, 1FFF,C880,F8,¢,F8,0,F8< 

DATA @,F8, @,F8,0,F8,9,DA¢ 

DATA @, 199, 8,318, 9,318, 0, 3518¢ 

DATA @,18C, 9, 184, 0,300, 8,9< 

C= 87 :DIM w3Z(Lr< 

FOR I=@ TO L:READ a$:w3%(1I)=VAL ("&h"+a$) sNEXTE 
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DATA 18, 15,2, 30, 9,58, 2, Fae 

DATA 38, 1868, 2078, 2088, 1FFF< 
DATA C00, F8,8,F8,9,F8,0,FB< 

DATA 9, F8,9,F8,9, 
DATA 8,386,9,683, 
DATA COZ, 690, COBO, 1ES1, 8698, 39,9, 78¢ 

DATA 6,F8, 8, 4878, B86, CASO, 1896, 2078¢ 

DATA 2096, 1FFF,COO0,FG,6,F8,0,Fa¢ 

DATA 6,F8,%,F8,9,F8,0,D8¢ 

DATA &, 18C, 6, 304, 0, 403, 8, 681¢ 

DATA G80, 680, C909, 699, COBB, 101, 800, B< 

L= 87 1DIM riz(Lr< 

FOR IeO TO LiREAD aS: 1X(1) =VAL ("&h"+a$) :NEXTE 
DATA 18, 15, 2,38, 8,58, 19008, Fa< 


DATA 1898, 78, 7098, 31,COSO, 7F, 0, 1FC< 
DATA CFB, @, Fore, 40Fre< 
DATA 1s 198€ 

DATA 8, 306, 8, [86< 


DATA 6, 18C, 6, 308, 6, 30,0, 78¢ 

DATA 1006, F6, 1880, 78, 7080, 31, C080, 7F< 

DATA @, 1FC, ®, 7F8, 0, 1CFQ, 6, FOFS< 

DATA 6, 40F8,0,F8, 0,F8, 0, D8¢ 

DATA 0,198, 9, 318, 9, SOC, 8, 306 

DATA ©, 186, @, 18C, 2, 308,08, 9¢ 

t= 87 1DIM r2XiL< 

FOR 1@9 TO LsREAD a$1r2%(1)=VAL ("&h" +08) tNEXTE 
DATA 16, 15,2, 30, 3808, 58, 6088, FA< 

DATA COBO, 71,8880, 33,0, 7E, 0, 1FC< 

DATA 9, 3F8, 0, 4FS, 0, CFA, @, 18F8< 

DATA 0, 30F8, 6, EOFA, G, DB, 8, 198< 

DATA 9, 318, 8, 300, 8, 307, C800, 188< 

DATA COBO, 189, 4988, 380, 0, 30, B02, 76¢ 

DATA 4898, FG, COBS, 71, 8000, 33,0, 7E< 

DATA @, 1FC, 6, 3F8,S, 6FB, 8, CFB< 

DATA 6, 18F8, 9, 3F8, 6, EOFA, 8, DAC 

DATA 6,198. IC, 8, 307< 

DATA C280, 188, CO9B, 180, 4998, 300, 0,0¢ 

Lm 87 :DIM r3K(Lr< 

FOR Ie@ TO L:READ ater 3%(1) *VAL(“&h"+a$) rNEXTE 
DATA 15, 15,2, 1846, 798, 3330, 330, 6578< 

DATA 47C2, CF98, 478C, C718, C7BB, 4331, C700, SFES< 
DATA 489, 1FC6, 400, FEC, 408, F 78, 798, FBO< 
DATA 330, FEO, 7C2,FCO, 78C, COS, 7B, COB< 

DATA 708, C89, 499, C26, 406, (80, 400, COD< 

DATA 490, COG, 400, 3CBB, , 1649, 8, SS3B< 

DATA 0, 4796, 4800, CF98, 4998, C718, CBP, G331< 
DATA C888, SFES, 6, 1FC6,0, FEC, 9, FI8< 

DATA 0, FBS, 0, FES, 0,FCO,9,COD< 
DATA 8, C80, 8, COO, 8, COB, 8, COS< 
DATA %, C80, 0, C28, 0, 3080, 0, 9< 
L= @7 sDIM 11x(L)< 
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FOR Im@ TO LeREAD a#s11%(1) =VAL("&h"+a8) 1NEXTS 
DATA 28, 15, 2,8, 98, 30, 30, 4958¢ 

DATA C2,E0FS, BC, 3878, BY, £38, C0, SFa¢ 

DATA 9,FC,@,FF,8,F9, C298, Fae 

DATA 7830,F8, 10C2,F@, AC, DB, BB, 198¢ 

DATA CO, 318, 0,318, 0, 318, 0, SOC€ 
FO4,8,C,9, 0,0, 30€ 

DATA #, 4078, 6, EOFO, 6, 3070, 0,E38¢ 

DATA 0, 3FG,0,FC,0,FF,S,F9¢ 

DATA C880, FE, 7800, FS, 1000,F8, 0, Dac 

DATA @, 198, 
DATA 8, 30C,0,FO4,0, 
L= 87 sDIM 12%(LI<€ 
FOR T=@ TO LsREAD a%: 12% (1) =VAL ("&h"+a8) NEXT 
DATA 14,15, 2,0, 98, E060, 38, SOBO< 

DATA C2, 19F0, GC, CES, BO, 648, CO, SFO 

DATA @, 1F8,9, 1FC, 8, 1F4, 98, 1F3< 

DATA 30, 1F1,88C2, 1FO, EGGC, 1B@, 4939, 33 

DATA CO, 630, 9,639, 0, 430, 9, 618¢ 

DATA @, 1E98, 0, 18,9, 0,0, E4< 

DATA B, SOF 0,0, 19FS, 0, CEO, 0, 69¢ 

DATA 6, 3FO, 9, 1F8,G, 1FC,@, 1Fb< 

DATA B, 1F3,9, 1F1, 9800, 1F9, ESOS, 1B9< 

DATA 4800, 330, 8, 651 39, B, GIDE 

DATA 0,418, 8,9, 0¢ 

t= 87 sDIM SKKLIE 

FOR I=@ TO LiREAD a%s13%(1) @VAL ("&h"+a8) sNEXTE 
DATA 14, 15,2, C3, 98, 199, BOS, B320¢ 

DATA C@C2, G67C, COSC, C436, COBO, E319, GACH, SIFFS 
DATA @, 18FE,@,C7C, 8, 67C, 98, S7C¢ 

DATA 3, tFC,C2,FC,8C,C,BO,Ce 

DATA C@,C, 2,0, 8,C,0,0¢ 

DATA 8,0, 0,F, 8, C3, 0, 199¢ 

DATA G26, BS3C, COB, 847C, COOP, C638, CODD, ES19¢ 
DATA G06, 31FF, 0, 1GFE,9,C7C, 0, 670¢ 

DATA @,37C,6, 1FC, 8, FC, 8, C¢ 

DATA 8,C,6,0,8,C,8,C¢ 

DATA @,C,6,C,8,F,0,9¢ 

L= 97 1DIM sizx(Ly< 

FOR I=@ TO LiREAD a$:s12% (1) =VAL (%&h +a) sNEXTS 
DATA 13, 15, 2,C3C3, 78,0243, 30, 63C4< 

DATA C2,324C, GC, £998, BO, FFO, CO, 7E8¢ 

DATA @, 768, 9, 7EO, 0, 7EO, 98, 7EDE 

DATA 34, 7E@,C2, 7E0, BC, 448, BO, C39< 

DATA CG, 1818, 6, 1818, @, 1818, 9, 1819¢ 

DATA 9, 1818, 8, 7BLE, 9, C3C3, 8, CSC3< 

DATA @,43C4, 8, 3240, 0, 1998, 8, FFA< 

DATA @, 7E0,G, 7E0, 6, 7E0,O, 7EB< 

DATA 2, 766,29, 7EO, @, 7EO, O, 68 

DATA 6, C36, 9, 1818, @, 1818, 6, 1818¢ 
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DATA @, 1818,9, 1816,9, 781E, 3, 0< 

Lo 39 sDIM s13%(LI€ 

FOR I=sd TO L:READ a$2513% (1) =VAL ("&h"+a$) s NEXTE 
DATA 19, 12,2, 79, 78, 78, 38, Be 

DATA 1C, 183E, 1C7F, OCF, 18F, 409F, &70F, 2FOF< 

DATA BFF, 907F, COOF,FFFF, 7FFE, 78, 78, 78¢ 

DATA 38,0, 1C, 183E, 1C7F, 6CF, 18F, 498F< 

DATA 478F, 2FOF, BOFF,997F, COOF,FFFF,7FFE, t618<¢ 
Le 19 :DIM B18%(Lr<e 

FOR I=8 TO LiREAD a$:518% (1) “VAL ("&h"+a%) sNEXTS 
DATA 8,8, 2, 1C@G, SESS, SEG, 1CO0, 7EQO< 

DATA FFOO,FFOO,FFOS, 0, 0,8, 0, 9¢ 

DATA 88, 88,80, 0< 

Le 19 :DIM st7%(Lo< 

FOR I=@ TO LtREAD at: 617% (1) =VAL("&h" tas) sNEXTE 
DATA 8,9,2,9,9,0,9,0¢€ 

DATA 8,9,G, 1COS, SEGA, SERM, 1COD, TEOO< 

DATA FF8S,FF8O,FFaO, 3< 

L= 19 sDIM siI9X(Ld< 

FOR I=@ TO t.sREAD 3919% (1) @VAL ("&h'"+as) sNEXT< 
DATA 6,6, 2, 1090, SEO, SESS, ICAO, TEOS< 

DATA FFO0,FFOS, FFD, 1COD, SEOD, SED, 1008, 7EOD< 
DATA FF80,FFES,FFBO,0< 

Le 19 2DIM siSKi(L)< 

FOR I= TO LiREAD a: 915% (1) =VAL ("&h"+a%) INEXTS 
DATA 8,8, 2,C300, 6690, 3COS, 3COO, SCOB< 

DATA 3COB, 6600, C308, 6,9,0,0,0¢ 

DATA 8, 8,0, 8¢ 

Le 19 rDIM s1id%(L< 

FOR I=@ TO LiREAD a%2516% (1) =VAL ("&h"+aS) zNEXTE 
DATA 8,8, 2, 8190, 8198, 8190, 8190, FFOD< 

DATA 8196, 8199, 8199, 8100, 8109, 8190, 0100, FFOD< 
DATA 8109, 8190, 8198, a< 

L= 19 :DIM st4Z(L)<€ 

FOR I=@ TO LeREAD a%: 614% (1) =VAL("&h" +a) NEXTE 
DATA 8,8, 2, 79, 78, 78, 38, 9¢ 

DATA 1C, 3€, 7F, CCCF,CCEF, 330F, 330F , CCEFS 

DATA CCFF,S37F, S3OF,FFFF< 

againi< 

RANDOMIZE TIMER< 

€< 

cLs< 

B0SUB title< 

RETURNE€ 

€ 

announce: < 

talksect< 


€ 

talks< 

IF talkflag=@ THEN SAY TRANSLATES (talk#), voicex<¢ 
RETURNE 
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< 
titles<¢ 
talk#="press 1 for game, 2 for typing"< 
GOSUB talk< 
WINDOW 4,” Press 1 or 2", (65,70)-(256,119),16, 
1¢€ 
PRINT:PRINT “ 1- Game"< 
PRINTsPRINT ” 2- Typing"<€ 
€ 
grabkey:<€ 
atoINKEY$:IF a%="" THEN grabkey< 
WOVAL (aS) < 


IF w<i OR w>2 THEN grabkey< 

talk$="Press @ through 9 to choose difficulty level 
a"€ 

GOSUB talk< 

WINDOW 4,"Press 6-9 for difficulty", (65, 70)—(255,11 
@),16,1€ 

PRINT:PRINTSPRINT ” Enter level (0-97)"<€ 

€ 

grabkeyi:< 

at=INKEYS: IF a$="" OR (a%<"8" OR a$>"9") THEN grabk 
eyl<¢ 

bD=eVAL (a$)< 

d=b:b=19-bs IF w=1 THEN b=b%2< 

IF w=2 THEN b=b%49< 

WINDOW CLOSE 4< 

temps$="“typing”"< 

IF w=1 THEN temp$="game" < 

talk$=temp$+" “+" level “+STRE(d) < 

GOSUB talk< 

RETURNC€ 

«< 

getout:< 

WINDOW CLOSE 3< 

SCREEN CLOSE 1< 

WINDOW 1, “Tightrope”, ,31,-1¢ 

WINDOW OUTPUT 1< 

END< 

€ 
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Beehive 


Steve Michel 


To avoid getting stung in this delightful strategy 
game, you'll need to plan ahead. Requires 
512K RAM. 


“Beehive” is a two-player strategy game that requires you to 
concentrate fully and develop long-range planning skills. The 
game board consists of 121 hexagons arranged in a sloping 11 
X 11 matrix. The name derives from the playing field’s resem- 
blance to the geometric precision of a honeycomb. The first 
player is assigned the left and right borders of the honeycomb, 
while the second player is assigned the top and bottom edges. 

The object of the game is deceptively simple. Each player 
tries to connect a continuous line from one of his or her bor- 
ders to the other. If you're player 1, for instance, you need to 
connect the left border with the right. The players alternate 
turns, filling in cells of the honeycomb one at a time. While 
attempting to complete your own course, you must also try to 
block your opponent's way, and this requires strategic think- 
ing. The first player to connect both borders wins the game. 
As a reward, tiny bee faces appear along the line of connec- 
tion, clearly marking the path to victory. 


Starting the Game 
Type in and save the program to disk. Before running the pro- 
gram set the screen to 80 columns by clicking on the Prefer- 
ences icon and setting the proper width. Once you have saved 
a copy of the game, select Start from the Run menu. Beehive 
begins by asking for the name of each player. After both play- 
ers have entered their names, the beehive grid is drawn, and 
play begins. The computer determines randomly which player 
should take the first turn, Each player takes a turn by moving 
the mouse pointer to the desired cell and pressing the left 
mouse button once. 

When you choose a cell, it is filled with a solid circle, and 
your turn ends. While connecting your own borders, you 
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should also be trying to prevent the other player from making 
a connection, Play continues until one player or the other 
completes a continuous line from one border to the other. At 
this point a victor is declared, and bee faces replace the circles 
along the entire winning route. 

Beehive includes synthesized speech. Either player can 
toggle the speech effects on or off at any time. Press the left 
button once: A small box appears, indicating the current 
speech status. If speech was turned on, it is now turned off, 
and vice versa. Press the left button again to erase the speech 
box and resume the game, 


Winning Strategies 

Like most two-player games, Beehive adjusts itself to the skill 
of the players. The basic concept is simple enough that even 
small children can enjoy playing. But when two knowledge- 
able players are matched, play proceeds at a much higher 
level. The flexibility of the game allows many different 
strategies, 

Here are some important points for beginners to keep in 
mind. First, your opening move does not have to occur in one 
of your border rows. In fact, you can often establish a better 
strategic position by starting somewhere near the middle of 
the playing field. In a typical game, you will have to swing 
back and forth between an expanding, offensive posture and a 
defensive, blocking posture. The middle areas accommodate 
both strategies well. 

Second, it is not necessary that all of your cells be con- 
nected. That is, a new cell doesn’t necessarily have to touch 
one of your existing cells. Any empty cell in the hive is fair 
game for either player, and it’s often advantageous to space 
out your cells to allow multiple paths between borders. Start- 
ing multiple pathways makes it harder for an opponent to 
block your progress completely. 

Finally, keep in mind that the hexagonal shape of each 
cell permits you to move in six different directions. Try not to 
get locked into a strict, straight-line strategy too often. Any 
pathway that connects both borders is legal, and in many 
cases the winning path will be quite roundabout. 
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Beehive 


The left-arrow symbols in this listing indicate when to press RETURN at the end of each 


program line, Do not attempt to type the arrows themselves. 


“; GOSUB tatk<€ 

GOSUB init< 

GOSUB getnames < 

starti¢ 

CLS: RANDOMIZE TIMER< 

markers = @: winner = @: prev.player = S<¢ 
Player = INT(28RND(1)+2)<€ 


FOR j = 1 TO 11: FOR k=1 TO 3i: hive%(j,k)=@r 


kz: NEXT j € 

FOR j = 1 TO 20: pathlen(j) = Bz: NEXT j< 
FOR j = 1 TO 65: path%(j) = @: used%(j) = 
j) = BO: NEXT 3€ 

GOSUB drawscreen<é 

BREAK ON: ON BREAK GOSUB closeup< 

€ 

main: <€ 

IF prev.player <> player THEN€ 

COLOR 4¢€ 

LOCATE 1,2: PRINT “Player: 

LOCATE 1,2: PRINT “Player: ";< 


COLOR colr (player): PRINT LEFTS$(player$ (player), 15) 
€ 


talk$=player$(player): GOSUB talk<¢ 
prev.player = player¢ 

END IF<€ 

WHILE MOUSE(@) = @< 

x = MOUSE (8) <€ 

a$=INKEY$: IF aS=" " THEN GOSUB readkey< 
WEND< 

SOSUB checkmouse< 

IF used THEN main€ 

GOSUB checkline< 

IF possible = 1 THEN GOSUB checkwinner< 
LOCATE 3, PRINT ” oe: 
IF winner 1 THEN drawpath¢ 

IF player = 1 THEN < 

player = 2 € 

ELSE ¢ 

player = 1 < 

END IF€ 

GOTO main< 

- 

initr< 

CtiS: colr(i) = 2: colr{2) = 3<€ 


DIM colcor%(11): FOR j = 1 TO 11: READ colcor%(j): 
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NEXT j<€ 

DATA 5,4,4,3,3,2,2,1,1,9,G€ 

DIM row.inc%(6), col.inc%(6)< 

FOR j = 1 TG 6: READ row.inc%(j), col.inc%¢j): NEXT 
a€ 

DATA -1,-1,9,1,1,1,1,9,9,-1,-1,-1¢€ 

DIM hivez(121,31)€ 

DIM used%(65), node%(65), path%(65), pathlen(29)< 
SCREEN 1,640, 200,3,2¢ 

WINDOW 1, “BEE HIVE”, ,14,1< 

GOSUB setcolor< 

DIM hexa(iG9),bal11 (109) ,bal!2(100),eyesi (190) ,eyes 
26189) € 

LINE (30,19)-(12,15),7: LINE — STEP (9,18),7: LENE 
- STEP (18,5),7¢ 

LINE — STEP (18,-5),7: LINE - STEP (9,-18),7: LINE 
~ STEP (-18,-5),7¢€ 

LINE (30,11)-(13,15),6: LINE - STEP (9,9),6: LINE — 
STEP (17,5) ,6<€ 

LINE - STEP (16,-4),6: LINE - STEP (@,-16),6: LINE 
— STEP (-17,-4) ,6¢ 

GET (12,19)-(48,39) ,hexa < 

CLS: CIRCLE (39,26),11,colr(1): PAINT (38,29),colr( 
1): GET (26,9)-(49,31) ,balll¢€ 

GOSUB parts: GET (18,12)-(42,39), eyesil <€ 

CLS: CIRCLE (36,20),44,colr (2): PAINT (39,26),colr¢ 
2): GET (20,9)-(49,31),ball2<¢ 

GOSUB parts: GET (18,12}-(42,30), eyes2: CLS<€ 
RETURNE 

< 

parts: <€ 

CIRCLE (25,19),4,1: CIRCLE (35,19),4,1¢€ 

PAINT (25,19),1: PAINT (35,19) ,1€ 

PSET (29,17): LINE - STEP (-5,-5): LINE - STEP (-5, 
DHE 

PSET (31,17): LINE - STEP (5,-5): LINE — STEP (5,3) 
¢ 

CIRCLE (30,24),2,1: PAINT (36,24),1¢ 

RETURNE€ 

< 

getnames:< 

COLOR 4¢ 

CLS: talk$="WELCOME TO BEEE HIVE": GOSUB talk¢ 

aS = “ What is the name of player 1 ": PRINT < 
PRINT a%;: taik$=a$: GOSUB talk: INPUT player$(1)¢ 
a$ = " What is the name of player 2 ": PRINT € 
PRINT 32 talk$=a$: GOSUB talk: INPUT player$(2)< 
talk$="Press space bar to turn speech off or on dur 
ing game. "<€ 

LOCATE 15,14:PRINT talks<€ 

GOSUB taik:CLS: RETURN€ 
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€ 

drawscreen: € 

CLE: y = 7¢ 

FOR r = 1 TO 11¢€ 
x = 180 -r ¥* 18€ 
FOR c = 1 TO 11¢€ 
x = x + 36€ 

PUT (x,y), hexa, ORE 


NEXT c € 
yryrtis¢ 
NEXT r € 


PSET (595,12),2: GOSUB upndawn: LINE -STEP (9,19),2 


€ 


PSET (596,12),2: GOSUB upndown: LINE -STEP (9,16),2 


< 


PSET (597,12),2: GOSUB upndown: LINE. -STEP (8,16),2 


€ 
PSET (194,12),2: GOSUB upndown: LINE ~STEP ( 


€ 
PSET (195,12),2: GOSUB upndown: LINE -STEP (9,14),2 


€ 


PSET (196,12),2: GOSUB upndown: LINE -STEP (6,19),2 
< 


yi=-S: y2=S: PSET (198,9),3: GOSUB across<¢ 
PSET (198,19),3: GOSUB across€ 

PSET (199,11),3: GOSUB across<¢€ 

yieS: y2=-S: PSET (19,173),3: GOSUB across¢ 
PSET (19,174),3: GOSUB across¢ 

PSET (19,175),3: GOSUB across<¢ 

RETURNE€ 

€ 

upndown: < 

FOR j = 1 TO 16€ 

LINE -STEP (9,18),colr(i)€ 

LINE -STEP (-18,5),coir(1d<€ 

NEXT j¢ 

RETURN€ 

€ 

across: <¢ 

FOR j = 1 TO 11¢€ 

LINE -STEP (18,y1),colr (2)< 

LINE -STEP (18, y2),colr (2)< 

NEXT j€ 

RETURN€ 

€ 

checkmouse: < 

x = MOUSE(3): y = MOUSE(4)< 

offset = S: used = 3< 

ye = INT (y/15¢.5): row = yr: yr = yr & 15 <€ 
IF INT ¢yr/2) = yr/2 THEN offset ig8¢ 

xe = INT (Gr-offset) /36+.5): col xr: xe = 
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+ of fseté 

IF row < 1 OR cow > 11 THEN 
used = 1¢€ 

RETURNE 

END IF¢ 

¢ol = col - colcoré(row) < 

IF col < 1 OR col > 11 THENé 
used = 1¢€ 

RETURNE 

END IF<€ 

rowhive = row: colhive = 19+2%col-rowé 
IF hive%(row,colhive) <> ® THEN < 


used = 1¢ 
RETURNE 
END IF < 


markers = markers + 1¢ 
hive%(row,colhive) = player¢ 
IF player = 1 THEN < 

PUT (xr-18,yr—-9), balli,OR € 
ELSE < 

PUT (xr-1@, yr~9) ,bal12, ORE 
END IF<€ 

RETURNE€ 

€ 


checkline:<¢ 

possible=1¢ 

IF player = 2 THEN < 

FOR row = 1 TO 6: ff=O: fb=8¢ 

FOR col = 1 TO 1%: colhive=19+2%col-row<s 
IF hivedé(row,colhive)=player THEN ff=1<¢ 
colhive = 16+28(col)-—(12-raw) < 

IF hive%(12-row,colhive)=player THEN fb=t¢ 
NEXT col € 

IF #f=@ OR fb=@ THEN ¢ 

possible = @¢ 

row = 1E+99<¢ 


END IF¢ 

NEXT rows 

ELSE< 

FOR col = 1 TO &: ff=@: fb=0¢ 

FOR row = 1 TO 11: colhive=19+2%col—-row< 


IF hive%(row,colhive)=player THEN ff=1¢ 
colhive = 10+2%(12-col )-raws 

IF hive%(row, calhive)=player THEN fb=1< 
NEXT row € 

IF #£=8 OR fb=@ THEN < 

possible = g¢ 

col = 16+e9< 

END IF< 

NEXT col¢€ 

END IF< 
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RETURN€ 

€ 

checkwinners< 

LOCATE 3,2: COLGR 42 PRINT “Checking 
used.cntr = $: winner = 9: node.cntr = 
1 = 6: counter = 8¢€ 

IF player = 1 THEN checki¢ 

FOR col = 1 TO ii: row = 1¢€ 

IF hive% (rom, 19+2%col-row) <> player THEN skip2¢€ 
noderow = row: nodecol = col: GOSUB usedlookup<é 
IF used.flag = 1 THEN skip2¢ 

node.total = 1: path.total = 1i:counter = 1¢€ 
pathZ(1) = 168 % noderaow + nodecol< 

GOSUB checkpath< 

IF winner = 1 THEN col = 1E+89<¢ 

skip2zs< 

NEXT col<¢ 

RETURNE€ 

€ 

checkiz € 

FOR row = 1 TO 11: col = 1¢ 

IF hive% (row, 19+2%col-row) <> player THEN skipi¢é 
noderow = row: nodecol = col: GOSUB usedlankup< 
IF used.flag = 1 THEN skipl< 

node.total = 1: path.total = 1: counter = 1¢ 
path%(1) = 198 & noderow + nodecol< 

GOSUB checkpath<é 

IF winner = 1 THEN row = 1E+99¢ 

skipiz<€ 

NEXT rowe 

RETURNE€ 

= 


usedlookup:< 

used.flag = $9: search = 196 % nederow + nodecol<€ 
ik = @: IF used.cntr = @ THEN skipsearch<¢ 
FOR 1k = 1 TO used.cntr<¢ 

IF search = usedZ(ik) THEN < 

used.flag = 1¢€ 

ik = 1&+99¢€ 

END IF € 

NEXT 1k€ 

skipsearch:< 

IF used.flag = @ THEN€ 

used.cntr = used-cntr + 1€ 
used%{used.cntr) = searché 

END IF€ 

RETURNE€ 

< 

checkpath:< 

node.cntr = B¢ 


nede.tota 
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FOR ac = 1 TO &¢ 

noderow = noderow + row.inc%(nc): nodecol = nodecol 
+ col.inc%(ncd<é 

IF noderow < 1 OR noderow > £1 GR nodecol < 1 OR no 
decol > 11 THEN skipnode 

€ 


IF hive (noderow, 19+2%nodecol -noderow) <> player TH 
EN skipnode< 

GOSUB usedlookup: IF used.flag = 1 THEN skipnode¢ 
node.cntr = node.cntr + 1¢ 

node.total = node.total + 1: nodeZ{nade.total) = 18 
@ & noderow + nodecol<¢ 

IF (player = 2 AND noderow = 11) OR (player = 1 AND 
nodecol = 11) THEN <€ 

winner = 1¢ 

path.total = path.total + 1¢€ 

pathz(path.total) = 199 * noderow + nodecol < 

nc = 1E+989¢ 

END IF <€ 

skipnode:<€ 

NEXT ncé 

IF winner = 1 THEN RETURN€ 

IF node.cntr = 9 AND node.total = @ THEN RETURN¢ 
IF node.cntr = @ THEN < 

path.total = path.total - pathlen (counter )< 
pathlen(counter) = G¢ 

counter = counter - 1€ 

END IF € 

IF node.crtr > 1 THEN counter = counter + node.cntr 
- 1€ 

noderow = INT (node% (node. total) /198)¢€ 

nodecol = node%(node.total) - 198 8 noderow< 
path.total = path.total + 1€ 

pathlen(counter) = pathlen(counter) + 1€ 

path% (path. total) = node% (nade. total) € 

node.total = node.tatal - 1 € 

GOTO checkpath <€ 


€ 

drawpath:<€ 

LOCATE 1, PRINT * ": COLOR 4¢€ 
LOCATE 1, PRINT “THE WINNER: COLOR colr (player 


3: PRINT player$(player);<€ 

aS = “THE WINNER IS “ + player$(player): talk$=a$: 
GOSUB tal ké 

FOR § = 1 TO path.total: offset = 6< 

row = INT(path%(4)/190): col = pathZ(j) - 1604row + 
colcor% (raw) € 

IF row/2 = INT(row/2) THEN offset = 18 < 

xr = col * 36 + offset: yr = row & 15€ 

IF player = 1 THEN 
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PUT (xr-19,yr-9), ball1, XOR < 

PUT (xr-12,yr-5), eyesl, GRE 

ELSE<€ 

PUT (xr-19,yr-9), ball2, XOR€ 

PUT (xr-12,yr-5), eyes2, ORé 

END IF<€ 

NEXT j € 

€ 

goagain:<€ 

LINE (419,139) —-(625, 186),7,b: LINE (426, 149)-{(624,1 
85), 7,b¢ 

LINE (421,141)—(623,184),4,bf: COLOR 4<€ 

LOCATE 19,55: a’ = " WANT TO PLAY AGAIN ? “: PRINT 
aS; <€ 

LINE (431, 162)-(487,189),7,bf: LOCATE 22,56: PRINT 
"YES "s€ 

LINE (567,162)—(615, 188),7,b: LOCATE 22,73: PRINT 


"ND "5 < 
talk$=a$%; GOSUB talk<¢ 
€ 

waiter:¢€ 

WHILE MOUSE(S) <> 1< 
WEND< 


x = MOUSE(S): y = MOUSE(4)< 

IF y < 162 OR y > 189 THEN waiter< 
IF x > 438 AND x < 488 THEN start¢ 
IF x > 544 AND x < 616 THEN closeup< 
GOTO waiter< 


€ 

setcolor:<€ 

PALETTE @,.3,.3,.3 *grey< 
PALETTE 1,9,9,0 *blacké 
PALETTE 2,9,1,9 * greene 
PALETTE 3,9,9,1 *blue< 
PALETTE 4,1,1,1 *whiteé 
PALETTE 5,@,1,1 ? aquaé 
PALETTE 6,1,1,9 *yellowe 
PALETTE 7,.8,.2,8 *redé 
RETURNE 

€ 

closeup:<¢ 

PALETTE @,.1,.1,1 *blueé 
PALETTE 1,1,1,1 > white 
PALETTE 2,8,9,9 *blacké 


PALETTE 3,.85,.2,5 “redé 
WINDOW CLOSE 1< 

SCREEN CLOSE 1€ 

STOP 

«< 

€ 

readkey:<€ 


36 


. Recreation 


WINDOW 4, "Speech", (259, 7H)— (396, 118), 16, 1¢€ 
IF TalkFlag=1 THEN€ 
talk$="Now I can talk."<¢ 
PRINT talks< 
TalkFlag=t-TalkFlag¢ 

GOSUB talk< 

GOTO clearmouse< 

END IF€ 

IF TalkFlag=8 THEN<€ 
talks="0K, I711 be quiet."< 
PRINT tal k$<¢ 

GOSUB talk<¢ 

TalkFlag=1—Tal kFlagé 

END IF€ 

€ 

clearmouse: € 

WHILE MOUSE (@)<>®:WEND< 
PRINT "Press button once"< 
PRINT "to continue..."<€ 
WHILE MOUSE (9) <>1:WEND<€ 
WHILE INKEY$< >": WEND€ 
WINDOW CLOSE 4<¢ 

RETURNE 


€ 

talkr¢ 

IF TalkFlag=@ THEN SAY TRANSLATES (talk$) < 
RETURNE€ 

€ 
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Pyramid Power 


Mike Lightstone 


This colorful action game, originally written for the 
IBM PC/PCjr, runs on any Amiga computer with 
512K memory. A joystick is required. 


The object of “Pyramid Power” is to fill in all the cubes that 
make up the pyramid by jumping onto each one—while evad- 
ing some hazardous pursuers. The pyramid is 6 cubes wide by 
6 cubes high. If you succeed in filling all 21 cubes, you ad- 
vance to a new level. ‘ 

Your pursuers consist of a bouncing rock and a pesky 
buglike creature. The rock comes bouncing down randomly 
from the top of the screen, starting over again every time it 
reaches the bottom of the pyramid. The creature is a little 
smarter. It constantly follows your every move as you jump 
from cube to cube. If your player collides with either one, the 
game ends. 

You can also lose the game by jumping in the wrong di- 
rection and falling off the edge of the pyramid. This happens 
frequently when you're fleeing in panic from the tumbling 
rock or nasty creature, 

Type in the program and save a copy before you run it. 
The small « character indicates where each program line ends. 
Don’t try to type this character—we deliberately chose one 
that’s not on the Amiga keyboard. The « character merely 
shows where you should press RETURN (or move the cursor 
off the line) to enter one program line and start another. 
Before running the program set the screen to 80 columns by 
clicking on the Preferences icon and setting the proper width. 
The joystick controls your movement. Plug the joystick into 
the port next to the mouse port (do not unplug the mouse). 


Two Escape Routes 

To make things a little easier, there are two special ways you 
can avoid your pursuers. A pair of elevators flanking the base 
of the pyramid stand ready to transport you at any time to the 
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“Pyramid Power” for the 
512K Amiga features color- 
ful action on a three- 
dimensional playing field, 


apex. To get on the elevator, you have to jump upward from 
the cubes at the bottom corners of the pyramid. Just get on the 
elevator and ride to the top. You can use an elevator as often 
as you like. But be careful not to miss when you jump, or 
you'll fall off the edge and lose the game. 

-The scoring system is pretty simple. Jumping on an empty 
cube is worth 100 points times the number of the level you're 
on, and elevator rides subtract 100 points times your level 
number. In other words, cubes are worth 100 points on level 
1, 200 points on level 2, and so on. Elevator rides subtract 100 
points on level 1, 200 points on level 2, and so on, Advancing 
to a new level earns a bonus of 1000 points. The program 
keeps track of your current score and high score, but the high 
score may reflect the points you gained before your last eleva- 
tor ride. Finally, Pyramid Power gets harder at the third Jevel 
and again at the eighth. 


Pyramid Power 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


< 

setup:< 

CLEAR , 25898< 

CLEAR , &5536%< 

SCREEN 1,320, 2068,2,1¢ 

WINDOW 1,°", (9,8)—(311,25), 16, 1¢ 
WINDOW 2,°", (@,0)-(311, 185), 16, 1¢ 
WINDOW OUTPUT 2< 

evs< 
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PALETTE 6,8, 0,0¢ 
PALETTE 3,1,1,1¢€ 
PALETTE 2,.8,9,-93¢ 
PALETTE 1,0,.93, -A7¢ 


tc 


€ 
DIM b (12,7) ,c (88), £ (BOd< 
sp*.25: laveizhs=@:RANDOMIZE TIMER< 
CATE 4,G:COLOR 2,9¢ x 
"PYRAMID-POWE RY< 
3,@:LOCATE 18,1:GOSUB player< 
"The object of the game is to change the"< 
“color of all the cubes while avoiding" 
“the bouncing rocks and creatures. Use"< 
“joystick #2 to move. For a fast trip"< 
“up, take the elevators. Be careful not"< 
"to fall off the edges. "< 
S80SUB creaturashape< 
button<¢ 
restart:< 
CLS:LOCATE 4,16:PRINT"Players "3PUT (150, 28) ,a¢ 
LOCATE 8,1@:PRINT"Creature:":PUT (155,50), q¢ 
LOCATE 12,1@:PRINT“Rock: “iCIRCLE (158,92),5,3< 
PAINT (158,92),3,32LOCATE 16, 18< 
PRINT"Elevator: ":LINE (165, 123) —(185, 112) ,3¢ 
LINE (285, 123) , StL INE- (185, 134) , 3: LINE— (145, 123) , 3< 
GET (151, 87) - (164, 97) ,c3 BET (164, 111)—- (296, 135), F< 
BOSUB button< 
«< 
readdata:< 
RESTORE:FOR z=1 TO 7:FOR zi=@ TO 12¢€ 
READ b(zi,z):NEXT z1,z¢ 
<€ 
startr<€ 
CLS:z1-8:FOR z=198 TO 46 STEP ~2&é< 
FOR 23=7@+z181S5 TO 228-z12iS STEP 36< 
LINE (z3,2)-(23,z-16) , 3: LINE— (z3+15, 2-27) , 3¢ me 
LINE=(23,2-34) , 3: LINE~(z3-15, z-27) , 3: LINE~(z3,z-18) gol 
23¢ 
SEN C8 S92 hs SEU IMES CES C1S 927925 SLINGS (23725, 3-275 7 
LINE (23, z) —(z3~-15, 2-9) , Ss LINE- (23-15, z~27) , 3€ ey 
PAINT (2347, z-9) , 1,3: PAINT (23-7, 2-9) , 2, 3€ 
NEXT: z1=z1+12NEXT¢ 
€ 


a 
ra 
RSI ysz1<¢ 
GOSUB playerxy< 
3872 k22s $15.52 kl=-. Sr k2o15é os 
PUT (49+ j815, 25+ (k-1) 826) , ce 2 
grSsh=SrgieSihi=we 
PUT (Se+g815, 13¢ (h-1)#26) ,q¢ = 
2 
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fielisf2e5¢ 

PUT (££815456, 5824-3) , f€ 

PUT (27, 5826-3) , #< 

checksquares: < 

IF x<>INT(x) OR y<>INTty)? THEN€ 
GOSUB move< 

IF kl=1 THEN gameover< 

END IF€ 

IF sq=21 THEN finished< 

IF x¢>INT(x) OR y<>INTCy) THEN rock<é 
LOCATE 1,1:PRINT “Score: “score<¢ 
LOCATE 1,32:PRINT “Level: “lev<e 

IF STICK(2)<¢>8 AND STICK(3)<>@ THEN 
GOSUB move< 

IF k1=1 THEN gameover < 

END IF< 

< 

rocks<€ 

PUT (4945815, 235+ (k-1) #26) ,c€ 

IF ks INT(k) AND k1#1.5 AND j=INT(§) THEN< 
Ji=INT CSSRND (1) )-12 j1=51/2¢ 
kis—.52k2=k-.5:SOUND 126,2<¢ 

€ND IF< 

IF j1i=8 THEN j15-.5¢€ 

IF j=x AND k#y THEN< 

GOSUB creaturerock<é 

IF kl=1 THEN gameover< 

END IF< 

Jej+jiskektki:IF k=k2 THEN ki=1.5<¢ 
IF k=8 THEN k=1s j=6:k2=.5¢ 

PUT (494 5815, 23+ (k-1) £26) ce 

€ 


creature:< 

PUT (S0+g 415, 213+ (h-1) $26) , qe 

IF g<>INTig? OR W<>INT(h) THEN creaturecont< 
If g<x THEN gizsp< 

IF g>x THEN gl=-sp<¢ 

If h>y THEN hi=-sp< 

IF h<y THEN hi=sp< 

IF hey OR g=x THEN gic@:hi=s< 
IF g=x AND h<y THEN€ 
hi=sp:g1=(INT (38RND(1))—-1) Sap< 
IF 91= THEN gi=sp¢ 

END IF< 

IF g=x AND h>y THEN< 
h1=-sp:gi=CINT (S8RND(1))—-1) ¥sp< 
IF g1=@ THEN g1=-sp< 

END IF€ 

IF h=y AND g<x THEN 
glesp:hi=CINT(SSRND(1))-1) Esp< 
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IF hi=@ OR h+h1>6 THEN hi=-sp< 

END IF< 

IF hey AND g>x THEN< 
gle-sprhi=(INT (S#RND (1) )—1) tap< 

IF hi=@ OR hthi>6 THEN hi=-sp<¢ 

END IF< 

creaturecont:< 

g=g+aishehthi< 

PUT (5049815, 13+ (h~1) #26) ,q¢ 

IF x=qg AND y=h THEN< 

GOSUB creaturerock¢ 

IF ki=i THEN gameover< 

END IF€ 

GOTO checksquares< 

€ 

mover<€ 

GOSUB playerxy< 

IF x<>INT(x) OR y<>INT(y) THEN movecont< 

IF STICK(2)=1 AND STICK(3)©1 THEN x1=.Sz:yio.5¢ 
IF STICK(2)==—1 AND STICK(3)51 THEN xi=-.S:y1e.5¢ 
IF STICK(2)=™1 AND STICK(3)=-1 THEN x1=. 5: yl=-.5¢ 
IF STICK(2)==1 AND STICK(3)==-1 THEN x1o-.Siyl=~.5€ 
movecont: < 

KeXtx Le ysyty le 

IF x#INT(x) QR y2INT¢(y) THEN x1=0:y1=0¢ 

IF x@INT(x) THEN SOUND 880,1 ELSE SOUND 449, 2<¢ 
IF x=INT(x) AND b(x,y)=#1 THEN€ 

GOSUB rocky: PAINT (47+x 815, 38+ (y—1) £27) , 3, 3€ 
sq=sqtisb(x,y)@o:60SUB rocky< 

nn#1:G0SUB scorecalc<¢ 

END IF< 

IF sq=21 THEN RETURNE€ 

IF xSINT(x) AND y=INT(y) AND b(x,y)=4 THEN< 
BOSUB rightelevator:nn=-1:G0SUB scorecalcé 

END IF< 

IF xsINT(x) AND y=INT(y) AND b(x,y)=5 THEN 
SQSUB leftelevator:nn=-1:GOSUB scorecalc¢ 

END IF< 

IF xmINT(x) AND y=INT(y) AND btx,y)=3 THEN€ 
GOSUB edge: IF klei THEN RETURN<€ 

END IF< 

IF (§=mx AND kay) OR (g=x AND hey) THEN<€ 

GOSUB creaturerock:IF kl=i THEN RETURN€ 

END IF€ 

IF y<1 THEN yolrxsé:x1=O:yl=d< 

8O0SUB playerxy< 

RETURNC€ 

€ 

rocky:€ 

PUT (494 $815, 23+ (k-1) 826) ,c€ 
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PUT (5@+g815, 13+ (h-1) 826) ,gé 
RETURNE€ 

« 

rightelevator:< 

PUT (#1815456, 5826-3) , F< 
2185:FOR z=11 TO 7 STEP-.25<¢ 
GOSUB playerzz1< 

PUT (2415+56,21826-3) , F< 
23=S-2z1<¢ 

SOUND 234290, 1< 

GOSUB playerzzi< 

PUT (2 415+56,21826-3), #< 
zi=zi-. 253NEXT< 

PUT (41215456, 5826-3) , F< 

“=63 y#=1s RETURNG 

€ 

leftelevatar:< 

PUT (27,5826-3) , F< 

zisS:FOR z=8 TO 4 STEP .25<¢ 
PUT (40424814, 15+(21-1) £24) ,a€ 
PUT (z&15+27,21%26-3) , F< 
R3=6-Z1<¢ 

SOUND 238200, 1¢ 

PUT (4042414, 154 (z1-1) 26) ,a< 
PUT (z#15+27,21826-3) , F< 
zlezin. 25:NEXT¢ 

PUT (27,5%24-3) , F< 

xeéty=1s RETURNE 

« 


finished:< 

CLS:FOR Z22=3 TO @ STEP —i< 

BeLSziL=19< 

FOR z3=1 TO 11< 

LINE (155-z, 109-21) -(155+z,190+z1),Z2,b¢ 
zeztl3sz1=z1+6< 

SOUND 2419, 2¢ 

NEXT: NEXT<€ 
score=scoretlevtid0d:lev=levti¢ , 

IF lev>2 THEN sp=.5<¢ 

IF lev>7 THEN sp=1¢ 

sq=@:COLOR 3,8:te=ts+2i:60TO readdata<¢ 
€ 

Creaturerock:< 

GOSUB playerxy:FOR zi=i TO 20¢ 
x™x+51IN(z1)/5:GQSUB playerxy< 

SOUND 255, 1< 

GOSUB playerxy:x=x-SIN(z1)/S< 

NEXTi kl=13 RETURNE 

€< 

edger< 

zeyt+.4:yl=-.2:IF x<& THEN xi=~.12 ELSE xi=.12¢ 
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edgecont:< 

IF z>& THEN 2=6¢ 
zezeylixextxisyizy1+.83¢ 
PUT (524x814, 11+ (2-1) 826), a€ 
SOUND =%188,1< 

PUT (S2+x 14, 114+(2-1) 826) ,a¢ 
IF 2>6 THEN kl=1:RETURN€ 
GOTO edgecont< 

<€ 


gameover :< 

CLS:IF score>hs THEN hs=score< 

tsststsq:LOCATE 6,9:PRINT"High Score: "“hs<¢ 

LOCATE 19,9:PRINT“You scored"score"points. "< 
LOCATE 12,9:PRINT"You filled"ts"squares. "< 

LOCATE 14,9:PRINT"You were on level "MID®(STRS (lev) 
eZ) 

LOCATE 20,4:PRINT"Do you wish to play again (¥/N)?" 
€ 


key33¢ 
2SaUCASES (INKEYS) < 
IF 2% OR (z$<>"¥" AND z$<>"N") THEN key3¢ 


IF z@="v¥" THEN< 

score=@: lev=1:8q=9: ts=0: sp=. 25:k1=8:GOTO readdata< 
END IF< 

GOTO quit< 

€ 


playerxy:< 

PUT (S2+x214, 11+ (y-1) £26) , as RETURNE 
< 

playerzzi:¢ 


PUT (64+ (z+1) 814, 18+ (21-1) 826) , a2 RETURNE 
€ 


scorecalc:<¢ 

score=score+nnt 199%] ev: RETURNS 
«< 

griddata:<¢ 

DATA 9353p 3,35 3¢ 
DATA 9 Sy Sp 5955 SE 
DATA x 
DATA x 
DATA 3,4€ 
DATA 9@,1,8,1,3< 
DATA 9 Sy Sy 5y5_, SE 
«€ 

quits< 


WINDOW CLOSE 2<¢ 

SCREEN CLOSE 1< 

WINDOW 1,"Pyramid Power”, ,31,-1< 
CLEAR , 25008< 

END < 

«< 
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players<¢ 

DEFINT a,q:1=87:DIM a(l)rRESTORE player< 

FOR i=@ TO 1:READ a$1a(i)=@VAL("&h"+a$) rNEXTIRETURNG 
DATA 13, 15, 2,3F8,8,FFE,S, tFFF< 

DATA @, SFFF, 8989, 7FFF, C80, ESFG, E088, ESFR< 

DATA E@2S,FFFF,ESS0,FFFF,ESSS, FFBF,EOS@,FFiIF< 

DATA E@@9,FFFF, E900, FFFF , ESOS, FCO7, E806, FFFF< 

DATA E990, 7FFF, COO, SFFF, A909, 404, 3, 494< 

DATA 87 , A898, 5,9, 9¢ 

DATA 
DATA 
DATA 
DATA 
DATA 
€ 
creatureshape:< 

12873DIM q(l):RESTORE creatureshape< 

FOR i=@ TO 1:READ a$2q(1)SVAL ("&h°+a$) s NEXT: RETURNC 
DATA 11,15,2,0,9,9,0,8¢ 

DATA 9,9,8, ae 
DATA 9,9,8,0, 9 
DATA 380,0, FEO, S,FEO,@, 4704, 8< 

DATA 1FF% |, SFFE, , SFFE, O, SFFA, De 

DATA SFFA,@, IFES, 0, 2019, 1CB, S, SED< 

DATA @, 7F®,9, 7F 9,9, 7FO, B, SEV< 

DATA 6, 23E2, 0,571 |, BFFS, 8808, 1FFC< 

DATA @, 1FFC,@, 1FFC,@, SFFE, 6, SFFD< 

DATA 0, 9FFC, 9890, 9FFC, 8800, SFFA, 8800, FFB< 

DATA @, 13E4, 9, 2022, 0, 2002, 8,9¢ 

€ 

button: < 

LOCATE 22,6:PRINT "Hit the fire button to play. "<€ 
WHILE STRIG(3) =O: WEND< 

RETURNE€ 


Biker Dave 


David Schwener 
Translation by Tim Midkiff 


Here’s a game guaranteed to bring out the daredevil 
in any computer owner. 


As the ramp nears, you focus your mind, tighten your grip on 
the handlebars, and accelerate the motorcycle for the final ap- 
proach. The deep, throaty cry of your machine’s powerful en- 
gine drowns the spectators’ cheers, and the onrushing wind 
pushes against your body like a gigantic hand. If your speed 
and timing aren’t exactly right, you may overshoot the ramp 
and lose control or fall short into the line of cars. 

Will you earn fame by surviving the jump or tumble into 
anonymity with a cartwheeling crash? As your speed mounts 
and the sidelines fade into a blur, there’s no more time to won- 
der and no chance to turn back. Only the utmost in coordina- 
tion and skill will bring you safely to earth on the other side. 


Over the Ramp 
In the upper left corner of the screen is the garage where you 
begin the ride. The rest of the screen contains the racetrack, 
with a couple of tunnels along the way, and a formidable ob- 
stacle which consists of several autos flanked by launching 
and landing ramps. Pressing the left mouse button controls 
your speed, (Avoid the right button; pressing it may crash the 
program.) Your goal is to ride down the track, through the tun- 
nels, and toward the final obstacle, gaining just enough speed 
to jump over the cars without crashing. The game ends when 
you manage to jump nine cars at once or crash your last bike. 
That may sound easy, but it's not as simple as you might 
think. For one thing, your bike is a specially built stunt ma- 
chine with no brakes. Should you reach too high a speed, 
there’s no way to slow down again. And if you accelerate too 
fast, the bike rises up into a wheelie. That's not bad in itself, 
but if you accelerate too hard from a wheelie position, the 
bike tips backwards and crashes. 
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As you approach the launching ramp, you need to go just 
fast enough to clear the parked cars, but not so fast that you 
lose control and miss the landing ramp on the other side. A 
successful jump requires precise timing and sure control of the 
throttle. The score you earn depends on the number of cars 
jumped and the number of attempts you made at that level. 

Each time you jump over the cars, the racetrack crew 
moves the launching ramp and adds another car to the lineup. 
Unfortunately, the crew is somewhat unreliable and has been 
known to change the launching ramp’s angle slightly when 
moving it. Thus, even though you may have jumped three 
cars with a speed of 100 miles per hour, there’s no guarantee 
that the same speed will work every time. 


Typing It In 

Type in and save the program to disk. Before running the pro- 
gram, set the screen to 80 columns by clicking on the Prefer- 
ences icon and setting the proper width. To run the program, 
select Start from the Run menu. 


Biker Dave 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves, 


GOSUB Initialize<¢ 

€ 

Setup: < 

COLOR 3,0:CLS:RANDOMIZE TIMER< 

GOSUB IntScreen< : 
sbS=" "25t=70:52=11G: jp=109: bisS:t=G: tr=1:s=Or 
=3: so=1 GOB 

=6 TO 255: IF i<i28 THEN pw(i)=127 ELSE pwti)=- 


. 128:NEXT:WAVE 3,pw < 


GET (283, 1)-(307, 17), t< 

< 

StartRun: € 

FOR i=1 TG S@O:NEXT:x=7:y=4:PUT (x,y), 
FOR i=1 TO 3:LOCATE 6,15:PRINT"GET READY":SOUND 176 


9 2€ 
‘FOR j=1 TO 259:NEXT:LOCATE 6,15:PRINT” “€ 
“EOR 4=1 TQ 250:NEXT:NEXT:FOR i=1 TO 15¢:NEXTé 
WHILE x<289 AND sp<s2< 


XSKTINT (Sp%.94)+1: IF MOUSE(G)<>@ THEN Sp=sp+5<¢ 


ries 21,19:PRINT sp:FOR i=1 TO 2@-(sp MOD 25):NEX 


SOUND sptsotf,.94, ,3< 
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IF sp>si THEN PUT(x,y?,d1,PSET ELSE PUT(x,y),d9,PSE 
Té 

SOUND sptso+f, 94, ,3< 

a sp>si THEN PUT(x,y),di,PSET ELSE PUT(x,y),d9,PSE 
PUT (283, 1),t,PSET€ 

WEND< 

IF sp>=s2 THEN CrashRight1¢ 

“ee 

JumpLeft: <€ 

y=68:c1=114+c88¢ 

WHILE x>c1€ 

\. *x- INT (sp %.64)~-1: IF MOUSE (9)<>@ THEN sp=sp+S¢ 

LOCATE 21,19:PRINT sp:FOR i=1 TO 20-(sp MOD 25) :NEX 
Tse 
SOUND sptsotf, .92,,3€ 

PUT (x,y) ,d2, PSET: PUT (283, 65) ,t, PSET€ 
WEND<é 

en ans) Eee SENT. (8073p) 82371) £48 
* PUT (x,y), d2:GOSUB Ramp1:PUT(x,y), dS:ci=cl-FE 

18 xl=xix=xtdxsyl=ysy=ytdy:k=k+1:FOR isi TO 20-(sp 
MOD 25) :NEXT< 

SOUND sptsotf,.92,,3¢€ s 

IF x<93- THEN IF x>88 THEN IF y<48 OR y>Sé THEN Cras 
hLeft< 

IF x<68 THEN IF y>468 THEN PUT (x1,y1),d3: y=68: dy=8¢ 
IF k=mp THEN dy=-dy8.3¢€ 

IF dy=@ THEN PUT(x,y),d2,PSET ELSE PUT(x1,y1),d3:PU 
-Taxyy) ,d3€ 

PUT(3,65),t,PSET:IF x<11 THEN PUT(92,5@) ,hp,PSET:G0 
TO JumpRi ght< 

GOTO 19¢ 

€ 

JumpRight: < 

€1=299-c4163 y=132€ 

WHILE x<ci¢ 

X=xX+INT (sp8.G4)+12IF MOUSE (6)<>@ THEN sp=sp+S<¢ 
LOCATE 21,19:PRINT sp:FOR i=1 TO 26~(sp MOD S)sNEXT 
< 

SOUND sp*sotf, .92,,35¢ 

PUT (x,y) .d, PSET? PUT (3, 129), t,PSET€ 

WEND< 

dx=42 dy=-INT (dx #.5) sk=d€ 

PUT (x,y), d@:GOSUB Ramp2:PUT (x,y), d1€ 

mp=INT (( (sp-jptc) &. 5+ jptc) 8-105) <€ 

26 xi=xix=xtdx:ylay: y=ytdy:k=k+12FOR i=2 TO 28-(sp 
MOD 25) sNEXT< 

SOUND sptsotf, .82, ,3¢ 

IF x>291 THEN PUTixi,y1),d1:GOTO ResetGame¢ 

IF y>i32 THEN y=132:dy=9: IF x¢288 OR x>287 THEN Cra 
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shRight2 ELSE GoodJump< 

IF k=mp THEN dy=-INT(dy%.3)< 

PUT (x1,y1),d1:PUT(x,y),d1z80TO 28¢ 
€ 


CrashLeft:< 

PUT (x1, y1) ,d33 y=68: K=9€ 

WHILE x>11€ 

x=x+dx2FOR i=1 TO S@-(sp MOD 25):NEXT:SOUND RND*250 
ksott,.82, ,3¢ 

IF k=@ THEN PUT (x,y),d3,PSET:k=1 ELSE PUT(x,y)?,d2,P 
SET: k=8< 

PUT (3,65), t, PSET: PUT (92, 59) , hp, PSETE 

WEND< 

GOTO ResetGame¢e 

€ 


.CrashRight1:<¢ 


k=@2 dx=3€ 

WHILE x<28s¢ 

x=xtdxsFOR i=21 TO S@-(sp MOD 25):NEXT:SOUND RND&259 
ksott, .D2,,3€ 

IF k=® THEN PUT(x,y)?,d@,PSET:k=1 ELSE PUT(x,y),d1,P 
SET: k=@€ 

PUT (283, 1), t, PSETE 

WEND< 

GOTO ResetGame< 

€ 


CrashRi ght2:< 

k=O: dx=3€ 

WHILE x<291¢€ 

IF k=@ THEN PUT (x1,y),di:PUT(x,y),d@2k=1 ELSE PUT(x 
1,y),d@: PUT ix, y) ,dizk=0¢ 

xl=xsx=xtdxsFOR i TO 58-{sp MOD 25):NEXT: SOUND RN 
Dk25G450+F, .92, ,3¢ 

WEND< 

IF k=@ THEN PUT(x1,y),di ELSE PUT(x1,y),dd< 

GOTO ResetGame< 

€ 

GoodJump: < 

PUT (x1, v1), di: PUT (x1, y) ,d¢ 

WHILE x<271¢€ 

PUT (x1, y),, dO: PUT (x,y) ,dB< 

xL=xix=x+dx:FOR i=1 TO 28-(sp MOD 5):NEXT< 

WEND€ 

PUT (x1, y) ,dd< 

LOCATE 22,14:PRINT tczc=ctl:tc=tctc: 5=28 (c419-tr¥5) 
atr=2¢ 

S1=RND£10+36+84c2 SZ=RND¥15+81+8%c: jp=RNDS20+99¢ 

FOR i=t TO t+s STEP S< 

LOCATE 23,19:PRINT i:SOUND 15989,.901,,3:FOR 3=1 TO 
5@: NEXT< 

NEXT:t=t+s: IF c>9 THEN d=1:EndGame< 
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©1=99+ (c~1) 88: PUT {ic1,71),r1:GOSUB Rampi< 
c1=231-(c-1)816:PUT (cl, £35),°2:GO0SUB Ramp2:G0SUB Ad 


dCar<¢ 
GOTO 38< 


FOR i=1 TO 16:FOR k=i TO 255:NEXT<€ 

SOUND 289, .5, RNDS255< 

SCROLL (9,0)-(311, 153), i, Hi=—jsNEXT< 

30 IF bid® THEN tr=tr+1:LOCATE 22,35:PRINT bi ELSE 
EndGame< 

sp=5¢ 

LOCATE 21,19:PRINT" @ “:GOTO StartRun< 

<€ 

IntScreen:€ 

LINE (3, 17) - (282,17), 2€ 

LINE (282, 81)-(28, 81) ,2¢€ 

LINE (26, 145) -(319, 145) ,2€ 

COLOR 2¢€ 

AREA (287, 144) s AREA( 253, 135) : AREA(253, 144) : AREAFILLE 
PUT (92,5@),hp < 

AREA (149, 80) s AREA (125, 71) s AREA(123, 89) s AREAFILL< 
GET (123, 71) ~(149,88) ,ri< 

AREA (183, 144) : AREA (28, 135) : AREA (288, 144) s AREAFILL< 
GET (183, £35) - (208, 144) »r2¢ 

FOR c=1 TO 3:GOSUB AddCar:NEXT:c=3¢ 

COLOR 1<¢ 

AREA (283, 17) : ARREA(283, 1) s AREA( 388, 1) : AREA(398, 81): A 
REA (283, 81) € 

AREA (283, 65) : AREA( 291, 45) s AREA(291, 17) s AREA (283,17) 
rAREAFILLE 

AREA (27,81) 3 AREA (27, 65) s AREA (3, 65) s AREA(S, 145) : AREA 
(27, 145) € 

AREA (27, 129) sAREA(19, 129) sAREA(19, 61) s AREAC2Z7, 81):A 
REAFILL<€ 

LOCATE 21,13:PRINT"SPEED: & MPH"< 

PRINT" CARS JUMPED: & BIKES LEFT: S"€ 
LOCATE 23,13:PRINT“SCORE: $"< 

RETURNE¢ 

< 

Ramp 12¢1=99+c88: PUT (c1, 71),r1,PSET:RETURNE 

Ramp2: c1=231-c 16: PUT (C1, 135) , 2, PSET: RETURNG 
AddCar :c1=253-c816:PUT (c1, 137) , ad, PSET: RETURNE 

<€< 

EndGame: < 

CLS:COLOR 3< 

IF d THEN€ 

LOCATE 5,5:PRINT"CONSIDER YOURSELF KING BIKER 
ELSE< 
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LOCATE 7,4:PRINT“YOU HAVE WRECKED YOUR LAST BIKE! “< 
END 1F€ 

COLOR 1:LOCATE 9,5:PRINT*YOU SUCCESSFULLY JUMPED"; t 
c-c; "CARS 

LOCATE 11,112PRINT“FINAL SCORE IS";t:COLOR 3¢ 
LOCATE 14,8:PRINT"PRESS BUTTON TO PLAY AGAIN®:i=MOU 
SE(OD€ 

WHILE MOUSE (6) =O: WEND< 

GOTO Setupé 

€ 


Initialize:< 

DEFINT a-z:DEFSNG r,g,b:DIM t (106) ,r1(49),r2(49) pw 
(255) , nw (255) € 

SCREEN 1,328, 206,2,1¢ 

WINDOW 3,"", (9, 9)—(311, 185), 16,1€ 

WINDOW OUTPUT 3< 

WIDTH 4@:RESTORE PaletteData:FOR i= TO 3:READ r,q, 
brPALETTE i,r,g,b:NEXTé 

PaletteData:< 

DATA 213564273, 95 09s = 93 Fy ID, By 2,0€ 

€ 

DaveRight:€ 

DIM d@(SS)sRESTORE DaveRight < 

FOR i=@ TO SS:READ a$: dCi “VAL ("&H" +a) sNEXTE 
DATA 19,D,2,5, 46,6, 6808, B< 

DATA 6974, 1, 807F, 35,8099, 6, 4409,C< 

DATA 3AGG, 1F, 199, 3F, BFT4, 40, EGSFE, Bé 

DATA CO435, 0, COSE, #, F, 8, F, BE 

DATA @,9,8,9,9,0,8,9¢ 

DATA 406, 6, AGG, 18, 126, SE, SFOS, 7FE 

DATA 7F89, 63, 7189, 63,3180, 3E, 1-08, d< 

€ 

DaveRightWheel :< 

DIM di(S5)}:RESTORE DaveRightWheel < 

FOR i=@ TO SS:READ a$:d1(i)=VAL ("&H"+a%) =NEXTS 
DATA 19,D,2, 18,9, 18, E98, 19¢ 

DATA 84,31, F801, 3F, 3800, 30, 4900, 50¢ 

DATA COO, SF, 8600, 3F, 8879, 41, S006, t< 

DATA 897D,0,9,9,9,9,9, B€ 

DATA G,G,G, 1, £980, 1, 3888, 0¢ 

DATA 7E99,6,E390, 1, E300, 3C, BEGO, 7E< 

DATA 8909, 62,9, 63, 8, SE, 8, GE 

< 

DaveLeft:< 

DIM ¢2(55S):RESTORE DaveLeft< 

FOR i=@ TO SS:READ a$sd2¢i)=VAL ("&H°+a$) sNEXTS 
DATA 19,D,2,6,9, 388, 60, 300< 

DATA 18, CB, 7E, EG, B, 1136,9, 2E18< 

DATA @, 487C,9,FEFE,@,83C1, 36, 189< 

DATA 43, 189, 3E,9,9,9,0,0¢ 

DATA @,9,8,9,9,@,, 1990¢ 
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DATA @,2899,9, 490C, 6, 7ESE, 0, FFSF< 

DATA G,C763,9, C443, @, 7C3E, 9, GE 

€ 

DaveLeftWheel : < 

DIM d3(S5):RESTORE DaveLeftWheel< 

FOR i=@ TO SS:READ a$2d3(i)=VAL ("RH" tas) s NEXTE 
DATA 18,D, 2, 18, 18, 18, 8C, 8¢< 

DATA C,FBC,FD, 1CFC, 82, 200, 0, 300< 

DATA @, 1FC, @, 1FC, 89, 182, 9, 189< 

DATA 3D, 9, 46,G, 70, 9,9, 9¢ 

DATA &,G,G, 780, G, 108, 9, TEBE 

DATA @,C799,9,C78G, 8, 7D3C,G, 17E< 

DATA @, 46,9,C4, @, 70,8, 9¢ 

€ 

Autos < 

DIM a@(19):RESTORE Autos 

FOR i=@ TO 19:READ a%: a (i)=VAL ("&H"+a%) 2 NEXTE 
DATA C,&, 2, 1F8D, 2049, 4926, FFFO, EO72¢ 
DATA FFF®,9,9, 1F 89, 2949, 4920, FFFO, 9FIBE 
DATA FFFS,C630,CO38, O< 

€ 


Hoop: € 

DIM hp (45) :RESTORE Hoopé 

FOR i=@ TO 45:READ a#:hp (i) =VAL ("&H"+a%) s NEXTE 
DATA A, 15, 2, 1EDD, 3306, 4186, 6189, COCBE 

DATA COC, COCB, COCS, COC, COCG, COCS, COCG, COCG< 
DATA COCO, CECD, COCS, COCO, 6189, 6189, 3308, 1EAG< 
DATA 1E69, 3390, 6198, 6189, COCS, COC9, COCH, COCO 
DATA COCG, COED, COED, CUED, CBEG, COEG, CUES, COCBE 
DATA COCO, 6189, 6186, 3308, 1E99, ABD, 400¢ 

€ 

RETURN€ 

€ 
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Laser Strike 


Barbara Schulak 
Translation by Tim Midkiff 


In this strategy game for one or two players, your 
mission is to locate and vaporize your opponent’s 
hidden space force before your force suffers the 
same fate. Includes speech synthesis and stereo 
sound effects. 


“Laser Strike” is a strategy game based on several popular 
board games (Battleship is probably the most famous). How- 
ever, unlike the board games, the action in Laser Strike occurs 
in outer space. Two players secretly deploy their spaceships 
around the galaxy and then try to locate the opponent's ships 
by firing laser strikes on the two-dimensional galaxy grid. The 
first player to find and destroy all the opponent's ships is the 
winner. 

Type in the program and save it to disk. Before running 
the program, set the screen to 80 columns by clicking on the 
Preferences icon and setting the proper width. To run the pro- 
gram, select Start from the Run menu. 


Beginning Play 
Laser Strike begins by asking each player to enter his or her 
name. If you wish to play against the computer, press RE- 
TURN without typing anything at the first name prompt. If 
you press RETURN at both name prompts, the computer plays 
the entire game by itself. 

The program then displays two grids, one for each player. 
In the first stage of the game, each player decides where to lo- 
cate the ships in his or her grid. The deployment must be se- 
cret, so the second player needs to look away from the screen 
while the first player deploys ships, and vice versa. To deploy 
a ship, simply move the cursor to the desired location on the 
screen with the cursor keys and press the space bar. After 
choosing the location, you must also decide whether to deploy 
the ship horizontally or vertically. You cannot place a ship so 
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a “Laser Strike,” a strategy 
Bonk + Bone game with stereo sound 
9 y p Yo effects. 


that it overlaps the border. If you attempt to place a ship ille- 
gally, the program warns you and gives you another chance. 
After both players’ ships have been placed, the contest 
begins. The players alternate firing laser shots on each other’s 
grids. To fire a shot, move the cursor to the desired location; 
then press the space bar. If you hit a ship, that square of the 


grid is marked in the color of the ship you hit. If you miss, the 


square is marked in a neutral color. The game continues until 

one player has found and eliminated all of the other player's 

ships. At that point you can exit the program or play a new 
ame. 

i To hear the stereo effect, make sure that both of the 

Amiga’s audio channels are connected to your monitor or am- 

plifier as explained in the user’s manual. 


Laser Strike 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


DEFINT a-z:DEFSNG r,g,b:SAY ""< 
DIM 9(1,9,9),c(1,9,9) ,nh (1,5) ,xh(1,5),yh (1,5) ,dx (1, 
5), dy (1,5), ta(1,5),5(27,8), wl (255) ,w2(255) < 

SCREEN 1,320, 288,3,1:WINDOW 3,"", (6,@)—(311, 186) ,16 
,1:WINDOW OUTPUT 3:COLOR 6,8< 

FOR i= TO 255: wi (i) =RND&299- 228: w2 (i ) =RND&255~128: 
NEXT€ 

RESTORE PaletteData:FOR i= TO 7:READ r,g,b:PALETTE 
i,7,g,b:NEXTE 

PaletteData:< 

DATA .13,8,~73,.13,5,-73,1,~73,8,-8,8,-93,-33,-87,6 
90 By 2p By Fy 2 Py 0 Fy Bye 735 @ 73K 
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RESTORE VoiceData:FOR i=@ TO B:READ v%(i)sNEXT€ 
VoiceData:< 

DATA 119,@, 158, @, 22209, 64, 1, 1, B< 

WIDTH 4@:CLS:RANDOMIZE TIMER< 

FOR co=t TO 7:CLS:LINE(1,1)-(7,7),co, BF:GEF(1,1)-(8 
»8),5(8,ca} sNEXT<C 

CLS:LOCATE 11,14:CALL Echo("LASER STRIKE", vi()}):PRI 
NT€ 

gx (8) =24: gx (1)=1923 gy=64€ 


b$=" Ne 
RESTORE ShipNames:FOR i=2 TO S:READ s$(i)=sNEXT<€ 
ShipNames: € 

DATA Explorer, Fighter, Bomber ,Mothership< 

FOR i=8 TO t¢ 


PRINT "Player“+STR#(i+1) 5: INPUT p$(idzIF pStid="" T 
HEN cp{i)=1:p%(i)="Computer”"< 

NEXT:CLS:LOCATE 7,6:COLOR 1,@:PRINT"GRID 1"SPC(15)" 
GRID 2"<€ 

GOSUB DrawGrid:LOCATE 26,1:COLOR 4,8 < 

FOR n=S TR 2 STEP-1:I1=10-LEN(s$(n)d€ 

PRINT SPC(1)s$(n} SPC (13+! )s$ (n>) sNEXT€E 


<€ 
DeployShips:< 
d=@:FOR pp=6 TO 1:p=ABS(pp-1):1stp)=S:FOR n=5 TO 2 


STEP-trer=t¢ 

WHILE er=1¢ 

LOCATE 1,1:PRINT p$(pp)< 

PRINT"Deploy your "s$(n)"."3€ 

FOR i=1 TO n:PUT(i&8+POS (9) 88, 8) ,5{8,n) ,PSETs NEXTE 
IF cp(pp)=@ THEN GOSUB Human ELSE x=INT(RNDS(19-n)) 
y=INT (RNDE (18-1) P< 

GOSUB SelectDir< 

WEND< 

GOSUB ClearTop:NEXT:GOSUB DrawGr id: NEXT€ 
p=1:d=1:GOSUB ClearTop:PALETTE 1,.5,.5,.5¢ 

FOR i=@ TO 1:px (i)=6: py (i) =O: NEXTE 

< 

MainLoop: < 

ee th (p)<142p=ABS (p—1) spp=p: WHILE INKEY$<>""3WEN 
LOCATE 7,4:COLOR p,ABS{p-1):PRINT"GRID 1";:COLOR AB 
S(p-1),92PRINT SPC(15) "GRID 2"< 

LOCATE 1,1:COLOR @,1:PRINT p$(pr< 

PRINT"Position and fire laser. "< 

IF cp(p)=@ THEN GOSUB Human ELSE GOSUB Computer <¢ 
SOSUB FireLaser:GOSUB PutFigure:GOSUB ClearTopé 
WEND< 

< 

EndGame: < 


ae S,@:CLS:LOCATE 11,15:CALL Echo(“GAME OVER", v% 
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COLOR 4:LOCATE 13, 26-LEN(p$(p))/2:CALL Echo(p$(p),v 
LOVE 

LOCATE 14,9:CALL Echo("Has freed the galaxy!",vZ0) 
< 

COLOR 2:LOCATE 17,12:PRINT“Play again CY/NI"< 

SAY TRANSLATES ("play again"), v%ic=1€ 

WHILE k$<>"Y" AND k$<>"NT< 

kS=UCASE$ ( INKEY$) :c=ABS(c-1)< 

COLOR S+c:LOCATE 11,15:PRINT°GAME OVER":FOR i=1 TO 
2082 NEXT€ 

LOCATE 11,1:PRINT b$:FOR i=1 TO 200:NEXT< 

WEND< 

IF k$="Y" THEN RUN 

IF k#="N" THEN CLS:END< 

« 

Delay:FOR i=1 TO 1500:NEXT: RETURN 

« 


ClearTop:LOCATE 1,1:COLOR,d:FOR i=1 TQ S:PRINT bS:N 
EXT: RETURNE 


€ 

PutFi gure: PUT (x*8tgx (p), yk+gy) ,5(8,co) ,PSET:pc=c(p 
oX,y) 50 (py XxX, y) =Coz RETURNE 

< 


DrawGrid:< 

co=7:FOR y=@ TO 9:FOR x=@ TO 9:FOR p= TO 1: IF c(p, 
Xsy)<>1 THEN GOSUB PutFigure< 

NEXT p,x,y:RETURNE 

< 


CheckxY:<€ 

IF x<@ OR x>9 THEN er=1¢ 

IF y<@ OR y>? THEN er=1< 

RETURNE 

€ 

FitShip:<¢ 

xi=x€ 

89 x1=x1+i:IF x1<=9 THEN IF g(p,x1,y)<>1 THEN @0¢ 
xp=x i-xsx1ex€ 

9@ x1=xi-1:IF x1>=@ THEN IF g(p,x1,y)<>1 THEN 99¢ 
xn=x~x L2tx=xntxp-1: yl=y< 

19@ yl=yitirIF y1<=9 THEN IF g(p,x,y1)<>% THEN 199¢ 
ye=yi-ysykay< 

110 yi=yi-itIF y1>=@ THEN IF g(p,x,y1)<>1 THEN 110€ 
ynsy-y1:ty=ynt+yp-1:RETURNE 

¥. 


Human: < 

x=px (p) sy=py (p) :x1=x2y1=y:ce=6:G0SUB PutFigure:k#=" 
"€ 

WHILE k®<>" “:kS=INKEYS€ 

IF k$=CHRS(30) THEN IF x1<9 THEN x 1+1€ 

IF k$=CHRS(31) THEN IF x1> THEN x i-l¢€ 

IF k$=CHRS(28) THEN IF y1>@ THEN yi=y1-1<€ 
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IF k$=CHRS(29) THEN IF y1<9 THEN yl=y1itle 
Co=pc:GGSUB PutFigurerx=xtry=y1:co=6:GOSUB PutFigur 
e< 

WEND: px (p) =x: py (p) =yt RETURNS 

€ 


Computer: € 

h=@:FOR m=2 TO S:IF nh(p,n)>@ AND nh{p,n)<n THEN sh 
=nzh=1¢ 

NEXT: IF h=@ THEN 4g< 

x=xh{p, sh) ry=yh(p,sh):IF nh(p,sh)>1 THEN 29¢ 

FOR i=@ TO Srpr(i)=@:NEXTE 

18 FSINT(RNDS4) 2 IF pri(r)=1 THEN 19¢ 

dx (p, Sh) =82 dy (p, Sh) #03 er =: pr (r-)=1;GOSUB FitShi p< 
IF F=@ THEN dx(p,sh)=1sIF tx<sh OR xp<xn THEN er=1¢ 
IF r=1 THEN dx(p,sh)=-1:1F tx<sh GR xn<xp THEN er=i 
« 

IF r=2 THEN dy(p,sh)=1:IF ty<sh OR yp<yn THEN er=1¢ 
IF r=3 THEN dy(p,sh)=-12IF ty<sh OR yn<yp THEN er=1 
€ 

x=x+dx (p, sh) s ynytdy (p, sh) € 

GOSUB CheckXY:IF er=@ THEN IF gip,x,y)<>1 THEN SO€ 
x=x-dx (p,sh)sysy—dy (p, sh) :B0TO 19€ 

26 x=xtdx (p, sh) 3 y=ytdy (p, sh) € 

er=9:GUSUB CheckXY:IF er=1 THEN S0SUB 3@:GDTO 26¢ 
IF g(p,x,y)=1 THEN GOSUB 30:G0TD 20¢ 

IF g(p,x,y)=8 THEN GOSUB 33<¢ 

GOTO Sd< 

36 IF talp,sh)=@ THEN dx (p,sh) =dx (p, sh) sdy(p, sh) =— 
dy (p,sh) sta(p, sh) =1¢ 

RETURNE 

4G x=INT(RND#19) s y= INT (RNDS10) < 

IF (x+y) AND 1)=@ THEN 49¢ 

IF g(p,x,y)=1 THEN 49¢ 

GOSUB FitShip: IF tx<ls(p) AND ty<ls(p) THEN 49¢ 

5@ co=6:GO0SUB PutFi gure: RETURNS 

€ 

SelectDirz€ 

IF gtp,x,y)<>0 THEN 79¢ 

KS=CHRS (29+ NT (RND#2) ) € 

IF cp(pp)=6 THEN < 

PRINT"Horizontal Cright] or vertical Cdown3?"< 
TWHILE kS<>CHRS(3O) AND k$<>CHRS (29) : k$=INKEYS 


€ND IF:er=9¢ 

IF k$=CHRS(3G) THEN 69¢ 

IF y+n-1>9 THEN 79¢ 

FOR i=y TO y+n-1:IF g(p,x,i)<>8 THEN er=1¢ 

NEXT: IF er=1 THEN 7@¢€ 

yl=y:FOR y=yi TO yltn-t:g(p,x,y)=onzIF cp(pp)=@ THEN 
co=n:GOSUB PutFigure< 

NEXT: RETURNS 
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6@ IF x#n-1>9 THEN 78< 

FOR i=x TO x+n-1:IF g(p,i,gy)<>@ THEN er=1¢ 

F er=1 THEN 79¢ 

FOR x=xi TO xt4n-i:gtp,x,y=nzIF cp(pp?=8 THEN 
GOSUB PutFigureé 

ETURNE 

2 IF cp(pp)=6 THEN LOCATE 4,1:COLOR S:PRINT"I 
NVALID CHOICE": GOSUB Delay< 

COLOR é:co=pc:GOSUB PutFigure:G0SUB Clear Top: RETURN 
€ 

€ 

FireLaser:< 

WAVE @,SIN:WAVE 1,SIN:k=1¢ 

FOR i=259 TO 1 STEP -75:k=ABS(k-1):SOUND 666, .5,i,k 
€ 

FOR j=1 TO 500:NEXT:SOUND 9,9,0,k:FOR j=1 TO 5@0:NE 
XT2NEXT€ 

nag (psxsy) & 

IF n=9 THEN PRINT*MISS 
1: RETURNE 

IF n=i THEN PRINT“ALREADY HIT": co=pc:GOSUB Delay: RE 
TURNE€ 

co=n:PRINT"DIRECT HIT!"< 

WAVE G,wi:WAVE 1, w2¢ 

FOR i=255 TO 19 STEP-10:SOUND 199,.1,1,0:SOUND 160, 
-1,4,3:FOR j=1 TO RND£20:NEXT:NEXT€ 

ah (p,n)=nh (psn) +h: th (p)=th tp) +4€ 

O(p, x,y) =1:PUT ((18+238p-+nh (p,n) #8, (24) #8) ,5(8,n> 
> PSET€ 

IF ndonhip,n) THEN € 

xh (p, nd =x yh (p,m) sy€ 

ELSE€ 

FOR i=2 TO StIF nh(p,i)=@ THEN Isip)=i¢ 

NEXTE 

IF n€>4 THEN € 

SAY TRANSLATES (s$(nd+" deestroyed"),v%zc=1¢ 

ELSE < 

SAY TRANSLATES (*bommer deestroyed”),v%:PRINT s$(n> 
€ 

END IF€ 

FOR i=1 TO 19:c=ABS{c—1>:COLOR n+(6-n) #c,c€ 

LOCATE 4, 20-LEN(s$(n))/2:PRINT UCASES (s$(n))< 
LOCATE 5,15:PRINT"DESTROYED!":FOR j=2 TO 50:NEXT: NE 
XT€ 

END IFé 

FOR i=1 TO S0@:NEXT: RETURN 

« 

SUB Echo(s$,v%(1)) STATIC 

SAY TRANSLATES (s$),v%:PRINT s$:END SUBE 

€ 

€ 


GOSUB Delay: co=1:g(p,x,y)= 
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Pioneer 


Martin Mathis 


A one- to four-player game, “Pioneer” tests your 
geography skills. Includes a medium-resolution map 
of the United States, speech, and mouse control. 
Requires 512K memory. 


“Pioneer” is an educational geography game. The program 
uses medium-resolution graphics (for a map of the United 
States), speech and windows, and part of the game is mouse 
controlled. There are several ways to play Pioneer depending 
on the number of players, and it includes an Atlas option for 
practice or information. 

The game is easy to play: Simply answer the questions 
about the states. In addition to testing your knowledge of geo- 
graphical facts, you'll learn how to spell names like Tallahas- 
see or Pennsylvania. 


Typing In and Starting Pioneer 

Pioneer is written in Amiga BASIC. It uses DATA statements 
for the geographical information, and uses the x and y co- 
ordinates of the lines and points to draw the map. Be careful 
typing these statements. One missing or misplaced DATA 
statement can cause the program not to run or, even worse, 
cause the program to be confused about which questions go 
with which answers. 

After you've finished typing, be sure to save a copy. 
Before running the program set the screen to 80 columns by 
clicking on the Preferences icon and setting the proper width. 
Then type RUN or select Start from the Run menu and turn up 
the volume. It takes some time for initialization. 

Any system request windows will be behind the Pioneer 
screen. Right after starting Pioneer, put the Workbench disk in 
the drive so the speech file can be loaded. 
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Using the Atlas Option 

Selecting F1 in the main menu takes you to the atlas mode. 
You'll see a prompt and the map. At the prompt you can enter 
one of the following: 


* The name of a state or its mail code. 
«The name of the capital or the largest city of a state. 
+ A number from 1 to 50 (to look for the state by its size rank), 


Or you can select a state by pressing the mouse button at 
the approximate center of a state. In all of the above cases, the 
chosen state will be painted red on the map, and an infor- 
mation window about it will appear, displaying the state's cap- 
ital, largest city, area (and rank in brackets), and its percentage 
of the total United States area. Click the mouse button or 
press the space bar to close the window. Hit ESC to exit the 
atlas mode. 

The program will protest if you try to choose the ocean, a 
borderline, text, or if you type in an invalid city name. 

Sometimes the program doesn’t recognize a state if you 
click the mouse too close to the border. Imagine a rectangle 
centered within the state’s borders. You can select the state 
with your mouse only if you click inside this rectangle. For 
that reason, for example, you must place the mouse pointer in 
the eastern part of Michigan and the western half of California 
to choose those states. Just practice a bit to get the idea. 


Playing Alone 

If you select the single-player option by pressing F2 from the 
main menu, you'll have to decide on the difficulty level. Lev- 
els 1, 2, and 3 present the easiest questions, but level 3 allows 
fewer wrong answers. Levels 4,5 and 6 have more difficult 
questions, and levels 7, 8, and 9 contain the most difficult 
questions. The more difficult the question, the more points 
you'll get for a correct response. 

The idea is to make it from Washington D.C. to either the 
Midwest, the South, or the West Coast (depending on the 
level) by answering questions and scoring points. Each point 
moves you closer to your destination. Correctly answering an 
easy question gives you one point; a medium-level question is 
worth two points, and a hard one yields four points. 

If you don’t know the correct answer press the HELP key, 
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which counts as a wrong answer. At the top of the screen, 
your current location and the distance remaining are dis- 
played. Each point equals about 60 miles. 

At a “Show me...” question, point to the state with the 
mouse pointer and press the button. The other answers have 
to be typed in. The game is over after you reach your destina- 
tion or when too many questions are answered incorrectly. 
Your performance will then be rated. 


Two to Four Players 
If you select F3 from the menu you'll need to also indicate the 
number of players and their names. The object is to win as 
many states (and their land area) as possible. The final score is 
the number of states multiplied by the percentage of land area 
owned. The bigger the state you want to go for, the harder the 
questions become and the more of them you'll have to answer 
correctly, Small states are useful, too, because they can multi- 
ply your score and are easier to get. Just pick the state you 
want to win with your mouse. Note that there will never be 
questions about the state you're currently playing for. 

At the beginning of a new round you can press the ESC 
key to abort the game. Otherwise the game ends after all 50 
states are taken. The HELP key is also active again. 

When the game is over each player gets his or her own 
score window, which will be behind the Hall of Fame window. 
Use the drag bar and the size gadget to view the other windows. 


Pioneer 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves, 


« 
< 

CLS: CLEAR, 3608:RANDOMIZE TIMER: OPTION BASE 1< 

DIM s$(S0,5), abc$(5O), abc (5) , xpos (58) , ypos (58) ,w(5 
@) ,e(58) ,n (50), 5(SG),xtr (89), ytr (89), 1ct$ (89) < 
usa=35S9S41&¢ 


elrs="> “sclrig="A: 
"€ 

SCREEN 1,320, 290,2, 1:WINDOW 1,°", (8,9)—(311, 185), 16 
1€ 

PALETTE 9,.3,-2,1¢ 

PALETTE 1,.33,.87,0¢ 


PALETTE 2,.95,.25,8¢ 
PALETTE 3,.3,.2,1¢ 
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babble “just a moment please"< 

FOR i#1 TO S@:FOR j=1 TO S:READ 9${i, 4) sNEXT< 
abe$(i)28$(1,1) sabe (i )=VAL (59 (1,5) € 

IF s$(i,4)="s" THEN s$(i,4)=s$(i,3)€ 

NEXT< 

shel 1=25< 

shell: array=@:FOR i=1 TO 5@-shell< 

IF abc(i)<abc(i+shell) THEN SWAP abc#(i),abc#(itshe 
11):SWAP abc (i), abc (itshell)rarray=1<¢ 

NEXT: IF array=1 THEN shell< 

shell#INT(shell/2)1IF shell>=1 THEN shell< 

RESTORE FillDat:FOR i=1 TO S@:READ xpos(i),ypos i): 
NEXT€ 

RESTORE PickDat:FOR i=1 TO S®@:READ w(i),e(i),n(i),s 
(4) 2 NEXT€ 

%2=623 y2™37: RESTORE USBorderDat:GOSUB DrawlS< 

COLOR 2,@:LOCATE 3,19:h¢="Welcome to the":p%="U.8.A 
a"€ 

FOR i=1 TO 14:FOR jei TO 3:LOCATE j,@+isPRINT MIDS( 
he,1,19¢ 

IF j>1 THEN LOCATE j-1,8+i:PRINT “ "<€ 

FOR k= TO 74:NEXT k,j,i< 

RESTORE StateBorderDat:GOSUB DrawState< 
X254091y2"1241RESTORE AKDat:GOSUB DrawAk< 

FOR i1*5@ TO 1 STEP -1:PAINT(xpos(i),ypos(i)),1,3¢€ 
IF 1911 THEN c=#i:GOSUB 78¢ 

IF i=22 THEN c=1:GOSUB 99< 

NEXT¢ 

FOR imi TO @ STEP —.@@62:PALETTE 3,i/3,1/5,i:NEXT 

€ 

FOR i=1 TO 6:FOR j=2 TO S:LOCATE j,24+izPRINT MIDS( 
pt,i,l< 

IF j>1 THEN LOCATE j-1,24+is:PRINT " “<¢ 

FOR k=@® TO 124:NEXT k, j,1€ 

babble “this is the gaim. off py.onier."< 

SO0SUB cir:LOCATE 5,25:PRINT “ n€: 

RESTORE TrackDat:FOR i=1 TO 89:READ de has 1 
ctS(i) sNEXT 

€ 

MainMenu:< 

WINDOW 2,"Pioneer Menu“, (15, 20)—(142,52),0,1:COLOR 
2,O0:WINDOW QUTPUT 2<¢ 

PRINT “F1 Atlas Made*< 

PRINT "F2 One Pioneer"< 

PRINT “FS Some Picneers"< 

PRINT "F4 Quit"s< 

babble "pleez select"< 

keyis< 

bSsINKEYS: IF bS<CHRS(129) OR bS>CHRS(132) THEN key1 
< 

ON ASC(b$)-128 GOTO Atlas,Pian1, Some, Kwit< 
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< 

Atlass< 

WINDOW CLOSE 2:WINDOW OUTPUT iscs=""< 

IF tgl<@ THEN babble “at.lass mode"stgl=1¢ 

LOCATE 1,14:COLOR 2,3:PRINT “Atlas mode":COLOR 2,0¢ 
3 LOCATE 3,1:PRINT “> "cS;<€ 

bS=INKEYS:GOSUB Pickrnogo=8:babble x$2IF DS@CHRS (13 
) AND ¢8<>"" THEN 4<¢ 

IF bS=CHRS(8) AND c$<>"" THEN c@LEFTS(c#,LEN(c)-1 
Y:LOCATE 3,1:PRINT clr#:GOTO 3< 

IF b$=CHR®(27) THEN tgl=@:GOSUB clr:GOTO MainMenu< 
IF b$>="B" AND b%<="9" AND VAL (c$+b$)<S1 AND LEN(cS 
<2 THEN c$=c®+b$:G0TO 3< 

IF (b%<"A" OR b#>"z"> AND b#<>” " AND b®<>"." THEN 
3< 

c8=cOtb$: IF LEN(c8)>19 THEN c$=""1LOCATE 3, 1:PRINT 
cles< 

GOTO 3< 

4 IF UCASES(c®)="PORTLAND" THEN port=1<¢ 

IF VAL(c®)>8 AND VAL (c$)<51 THEN c#=abc$ (VAL (c#))< 
FOR i=1 TO SO@:FOR j=1 TO 4¢ 

IF UCASE#(s%(i, §)) =UCASES(c$) THEN ii=i:jj=j:GOTO S 


€ 

NEXT j,itbabble "sorry, try again."“:GOQSUB cirsGOTO 
Atlas< 

S x#mg(1i,1)+", "+5$(ii,2)sPAINT (xpos (ii), ypas(ii)) 
22,3 € 

IF 11711 THEN c=2:GO0SUB 98¢ 

IF ii@22 THEN c=2:GOSUB 99<¢ 

GOTO StateInfo< 


€< 

Pionis<¢ 

didit=@:es= d$=“questions":xdc=2421 ydc=93: curloc® 
="Washington DC"<€ 

CLS:PRINT:PRINT “ Choose level”:PRINT “ (1-9) 
2Me 


19 bS=INKEYS$: IF bS<"2" OR b$>"9" THEN 19 ELSE CLS:P 
RINT:PRINT " Level chosen”:PRINT SPACES (5)"("b$")” 
€ 


lev=VAL (b#) re%o"easy ":xd=194: yd=82:dest$="Mid West 
“emi le=860: pstep=61. 46: frm=1: tom=14<¢ 

IF lev>3 THEN e¢se$+"and meedium ":xd=157:yd<135:de 
st$="South":mile=14908: pstep=55. 19: #rm=15: tomagi¢ 

IF lev>é THEN e$-e$+"and hard “sxd=611yd=120:dests= 
“West Coast:mile=295@:pstep=61 . 43: frm=42: tomaB7< 
IF level OR lev=4 OR lev=7 THEN jsm=1.3<¢ 

IF lev=2 OR lev=S OR lev=8 THEN jsom=1.2<¢ 

IF lev=3 OR lev=6 OR lev=9 THEN jam=1.1< 

Bos nts=<tom-frat!: abspts=INT (pointstjam+. 5) :atgemile 


65 


CHAPTER TWO 


eatceS+d$: babble et< 

WINDOW CLOSE 2:WINDOW OUTPUT 1< 

LOCATE 2,3:COLOR 2:PRINT “Your destination is the " 

dests"."<€ 

ocnre 4,3:COLOR 1:PRINT “You start from Washington 
Oa ME 

FOR i=® TO 2¢ 

FOR j=@ TO 2:CIRCLE(xdc, yde), 3,3sCIRCLE(xd, yd), 5,32 

NEXT:FOR k=® TO 999: NEXT€ 

FOR j=@ TO 2:CIRCLE(xdc, yde), 4,2: CIRCLE (xd, yd), 5,22 

NEXT:FOR k=@ TO 999;NEXT k,i¢ 

babble "try to make it from washington dc to the "+ 

dests< 

curloc=frm-1: LeveINT (lev/3+.9)< 

towns (1) ="Chicago": town®(2)="Dal las": towns (3) ="Los 

Angelas"< 

cmnt$(1)="not getting killed by Al Capone. "scmnt$(2 
Je“competing with J.R. Ewing. "< 

cmnt$(3)="messing with Mexican immigrants. "scmnt$(4 
d="getting into Hollywood’s society. "< 

GameLoop: < 

FOR i=@ TO 9:b$=INKEY$:NEXT<€ 

IF curloc>=frm THEN < 

FOR 1@1 TO S@sIF Ict#(curloc)=s$(t,2) THEN curlocs= 

aSli, Lsiiei< 

NEXT€ 

END IF< 

GOSUB StatLin<e 

question=INT(RND(1)%lev)+1:0N question GOSUB easy,m 

edium, hard<€ 

IF question=3 THEN question=4< 

IF qi=@ AND question=1 THEN GOSUB EasPick:GOTO 29¢ 

c$="":G0SUB GetAnswer :r1$=c$:eas=8< 

28 GOSUB Check< 

abspts@abspts-question: IF ans=1 THEN¢ 

bab] #INT(RND(1)83)< 

IF babl=@ THEN babble “yoo are right"< 

IF babl=1 THEN babble “that’s correct."<€ 

IF babl=2 THEN babble “you've got that one."< 

points=points-question: mi le=mi1e@—-questiontpstep:cur 
lececurloctquestion<é 

IF curloc>tom THEN curloc=#tom< 

FOR 1=frm TO curloc:PSET (xtr (i), ytr(i)?),2:SOUND RND 
8560+99, 1s: NEXT< 

curloc$=ictS(curloc)< 

IF curloc$="D" THEN mile=@:didit=1:curloc#=dest$:60 

BUB StatLin:GOTO Gover< 

GOTO GameLaop< 

END IF¢€ 

IF b®<>CHRE (139) THEN babble “oops."<€ 


66 


C 


Education 


IF w= THEN LOCATE 4,1:COLOR 3:PRINT "The right a 
aswer is “s:COLOR 2:PRINT r$;:COLOR 3:PRINT ".":FOR 
428 TO 6999:NEXT< 

IF abspts<=@ THEN didit=8:G0SUB StatLin:GO0TO Gover< 
GOTO GamaLoop< 

Gover s< 

LOCATE 3,12:COLOR 2,3:PRINT “The Game is Over"< 
babble "game over":FOR i=8 TO 7999:NEXT:GOSUB clr< 
IF didit=@ THEN< 

IF curloc >=frm THEN:FOR j°@ TO i:CIRCLE(xtr (curlac 
),ytr(curloc)), §,23NEXT< 

LOCATE 1,1:COLOR 1:PRINT "You didn’t make it to you 
r destination. "< 

COLOR S:PRINT “You wind up in “3;:COLOR 2:PRINT curl 
oc#;:COLOR 2< 

PRINT " after":COLOR 2:PRINT INT(mtg-mile);:COLOR @ 
APRINT "miles ("3€ 

COLOR 2:PRINT STRS(INT ( (mtg—-mile) /mtgt1@8+.5))"% “s 
«€ 


COLGR @:PRINT ")}, where you"< 

Job=INT(RND(1)85):IF job=@ THEN PRINT “build a log 
cabin and become a hunter."<€ 

IF job=1 THEN PRINT “get into the lumberjack busine 
a8."< 

IF job=2 THEN PRINT "build a house and start farmin 
ge" 

IF jeb=3 THEN PRINT “settle down and raise a family 
oe 

IF job=4 THEN PRINT “die lonely a couple of years 1 
ater. “< 

babble “well, that’s tough luck, py.onier.":G0TO Ja 
clyn<¢ 

END IF<€ 

LOCATE 1,1:COLOR 1:PRINT “You made it to the “dest$ 
ee Eee. 

COLOR @:PRINT “You build the town of “;:COLOR 2:PRI 
NT town$(lev)< 

COLOR @:PRINT “where you have a hard time"<€ 

IF lev=3 AND RND(1)<.S THEN lev=4< 

PRINT cmnt€(lev):FOR icf TO 3999:NEXT< 

babble "you are faimous and rich, py.onier"<€ 
dJactlyns< 

babble "hit any key to continue. “< 

FOR i= TO 9: a%=INKEYS:NEXT¢ 

30 a*=INKEY$:FOR i=frm TO curloc:PSET(xtr (i), ytr (i> 
), 2:NEXT< 

FOR i=frm TO curloc:PSET (xtr (id, ytr(i)), 3sNEXTE 

IF a$="" THEN 30< 

COLOR 1,0:CLS:x2"62: y2=37:RESTORE USBorderDat:GOSUB 
DrawlS<¢ 

RESTORE StateBorderDat:GOSUB DrawState< 
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X2=40:y2=124: RESTORE AKDat:GOSUB DrawAk< 

FOR i=S@ TO 1 STEP -1:PAENT(xpos(i),ypos{i)),1,3€ 
IF i#11 THEN c=1:GOSUB 98¢ 

IF i=22 THEN e=1:G08UB 99¢ 


NEXT:GOTO MainMenu < 

€ 

StatLin:< 

GOSUB clr:COLOR 9,1:FOR isi TO 49:LOCATE 1,i:PRINT 
“ "sNEXT<é 


LOCATE 1,2:PRINT “Loc: “curloc$:miles=STR$(INT (mile 
+.5)0€ 

LOCATE 1,21:PRINT "/ “MIDS(miles,2,LEN(mile$)-1t)" m 
iles to go"< 

RETURN€ 

€ 

Pion2:< 

round=round+1:p2°1:FOR g=1 TO prris="":IF sta>49 TH 
EN GameOver< 

COLOR 2,3:LOCATE 1,1:PRINT “Round"“round<€ 

PRINT "Pioneer "p%{g)" >“:COLOR 1,9¢ 

babble “your turn "+p$(g)<¢ 

7 IF MOUSE(O)<>@ THEN 7< 

FOR i=® TO 9:bSeINKEY$:NEXT< 

B bS@INKEYS< 

IF bS@CHR®(27) AND g=1 AND round>1 THEN round=round 
-l:babble “game aborted after "+STR#(round)+" rounds 
":GOTO GameOver< 

GOSUB Pick:IF nogo=1 THEN nogo=@:babble x®:GO0TO 8 < 
beiitaresVAL (s$(h,5)):GOSUB cirz:COLOR 2,3:LOCATE 1, 
LsPRINT s®(h,1)< 

GOSUB e :IF gi=@ THEN GOSUB EasPick< 

c$="": IF qi>®@ THEN GOSUB GetAnawer ir i¢=c$;: eas=8< 
GOSUB Check: IF ans=@ THEN nay < 

IF are>9200 THEN< 

babble “alrite, but there’s more to answer"< 

GOSUB clr:COLOR 2,3:LOCATE 1,22:PRINT a%(h,1)< 
BOSUB medium:c$="":GOSUB GetAnswer:ri$=c%:GOSUB Che 
ckreas=O< 

IF ans@@ THEN nay¢ 

—ND IF¢ 

IF are>S9080% THEN< 

babble "really, you’re getting closer"<¢ 

GOSUB clrsCOLOR 2,3:LOCATE 1,2:PRINT s%#(h,1)< 

SOSUB mediumsc$="":GOSUB GetAnswer:rit¢=c%:GOSUB Che 
ckreas=se 

IF ans*@ THEN nay< 

END IF< 

IF are>13@608& THEN< 

babble “yes, but the last question is a hard one."<€ 
BOSUB clr:COLOR 2,3:LOCATE 1,1:PRINT s$(h,1)< 


68 


Education 


GOSUB hard:c$#="":GOSUB GetAnswertri$=c$:GOSUB Check 
reas=S< 

IF ana=@ THEN nay< 

END IF<€ 

yupr< 

babble “a.k! you won the state."< 

sta=stat!: score (g)=score(g)+are: sta(g)=sta(g)+1:G0T 
0 gaon< 

nays< 

IF b€<>CHRS(139) THEN babble “nope"< 

PAINT (xpos (h) »y! (h)),1,3€ 

IF hell THEN c= 
IF h=22 THEN c= 
IF ease@ THEN COLOR 2,@:LOCATE 4,1:PRINT "The corre 
ct answer is “s;:COLOR 1:PRINT r$;:COLOR 2:PRINT "." 
< 

qoons< 

GOSUB Windw:GOSUB clr:NEXT:GOTO Pion2< 

< 

GameOver: < 

GOSUB clr:COLOR 2,3:LOCATE 2,141PRINT "GAME OVER":C 
OLOR 3,@:LOCATE 3, 13<¢ 

PRINT round"Rounds“sbabble"gaim over":Wind=1:921< 
WINDOW 2,p%(1), (5,13)}—(178, 73) ,16,1:WINDOW QUTPUT 2 
sGOSUB Wind< 

WINDOW 3, p$(2), (136,30)- (306,98), 16, 1:WINDOW OUTPUT 
3:GOSUB Wind< 

IF p>2 THEN WINDOW 4,p%(3), (S, 193)—(179, 163), 16, 110 
INDOW QUTPUT 4:G08SUB Wind< 

IF p>3 THEN WINDOW S,p$(4), (136, 126)— (306, 180), 16,1 
sWINDOW OUTPUT S:GOSUB Wind< 

WINDOW 6," Pioneers’ Hall of Fame", (49,49)~(250, 168 
2,19, 11WINDOW OUTPUT 6< 

SOUND 1106,6:FOR 1=1 TO p:perS=STRS(score(i)):GOSUB 
Percentage<¢ 

score (i) @VAL (per) :ttl (i) =sta(i) Sscore (i) sNEXT< 

FOR i=1 TO p-1:FOR jei TO p< 

IF tt1¢id<ttl (3) THEN SWAP p$(i),p%(4):SWAP ttl (id, 
ttl (j)1SWAP sta(i),sta(j):SWAP score(i),score(j)< 
NEXT j,i¢ 

FOR i=1 TO psIF ii THEN COLOR 2,3 ELSE COLOR 1,3< 
PRINTSPRINT STR®(i)". “pS(i?" "E 

COLOR 2,0:PRINT stalid“X"score(i) "="tt1 (1 d€ 
NEXTICOLOR 1:PRINT:PRINT “Hit any key to continue"; 
€ 


FOR i=@ TO 9:b$=INKEYS:NEXTC 

11 DS=INKEY$: IF b$="" THEN 11¢ 

FOR i=2 TO 6:WINDGW CLOSE i:NEXTsWINDOW OUTPUT 1¢ 
COLOR 1:G80SUB cirsWind=B< 

FOR i958 TO 1 STEP -1:PAINT(xpos(i),ypos(i)),1,3¢€ 
IF i@41 THEN c=2:G0SUB 98<¢ 
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IF i=22 THEN c=1:GQSUB 99<¢ 
NEXT< 

p2=9:GOTO MainMenu< 

€ 


GetAnswer:< 

COLOR 3,@:LOCATE 3,1:PRINT clri$:COLOR 1,9:LOCATE 3 
+SSPRINT c#< 

BA:€ 

bS=INKEY$: IF bt=CHRS(13) AND c#<>“" THEN RETURN< 

IF bS=CHR$(i39) THEN c$="“r:eas=@:babble "“help":RETU 
RN<€ 

IF b#=CHR$(8) AND c$<>“" THEN c8=LEFT$(c$,LEN(c$)—1 
2180TO GetAnawer< 

IF (b#>"z" OR bS<"S") AND b9<>" “ AND bS<>".” THEN 
gA€ 

c$=c$+b$:IF LEN(c$)}>29 THEN c$=" 
SOTO GetAnswer< 


« 

Check:< 

ans2B< 

IF port=1 AND (UCASES(r1$)=“OREGON" OR UCASESir1$)= 
"MAINE") THEN ans=1sport=9< 

IF UCASES (r$) =UCASES (r1$) THEN ans=1¢ 

IF hard=@ THEN RETURN< 

hard=@:1F ql=@ THEN< 

FisVAL (r$) sr2=VAL (F119) se leri-r1/1998iSsrher t+ri/198 
aiS< 

IF ri<er2 AND r2<=rh THEN ansol:RETURNG 

END IF< 

IF gi=1 THEN< 

FOR i=1 TO S@:IF UCASES(abc$(i))=UCASES(ri$) THEN i 
ini¢ 

NEXT: IF 11=VAL(ar$) THEN ans=1< 

END IF< 

RETURN<€ 

€ 


EasPick:< 

rigerre 

9 IF MOUSE(@)<>1 THEN 9< 

XSMOUSE (3) s y>MOUSE (4) FOR i=1 TO S5e< 

IF x>w(i) AND x<eti) AND y>n{i)? AND y<s(i) THEN ris 
esti, l< 

NEXT: IF ris="" THEN 9¢ 

LOCATE 3,3:PRINT riS:eas=1<¢ 

RETURNE€ 

< 

Windws< 

WINDOW 2,p$(g), (g838, 354gt1&) —(17S+g830, 190+gh1G) ,o 
yi:WINDOW QUTPUT 2¢€ 

Wind:< 

COLOR 3,9:PRINT "States owned: "sCOLOR 2:PRINT sta(g 
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d¢€ 

COLOR 3sPRINT “Area owned in sq.mi.:"1COLOR 2:PRINT 
score (g)< 

COLOR 3:PRINT “Land area of USA:“:COLOR 2:per$=STRS 
(scoraig))< 

GOSUB PercentagerPRINT " "pers" %"3< 

IF Wind=1 THEN < 

PRINTsPRINT INT (sta(g) /rounds1989) /1908"States/turn 
"46 

@™=gtisSOUND g%208,4:FOR i2=8 TO 2999:NEXT:RETURNE€ 
END IF< 

COLOR 1:PRINT:PRINT:PRINT "Hit SPACE";< 

FOR i=@ TO 9:bS=INKEYS: NEXT< 

key3s<¢ 

b@=INKEY$:IF b%<>° " AND MOUSE(@)<>1 THEN keyS< 
WINDOW CLOSE 2:WINDOW OUTPUT 1:RETURN< 

« 

Somer< 

CLS:PRINT:PRINT “How many players"< 

PRINT " (2 to 4) 2"¢€ 

key2:<¢ 

bS=INKEY$: IF b8<"2" OR b$>"4" THEN key2¢ 
P=VAL (b%) sbabble b$+" py.oniers. "<€ 

CLS:PRINT “Enter names 1°<¢ 

FOR i=@1 TO pzbabble “player"+STR$(i)s INPUT pS (id< 
IF p@(i)="" THEN p$(i)="Player"+STRS(i)< 

p% (i) SUCASES (LEFT@ (p@ (i), 15)) escore (1) =@: sta li) =o2N 
ExT< 

WINDOW OUTPUT 1:WINDOW CLOSE 2< 

babble “fine. let’s start."¢ 

round=@:sta=8:G0TO Pion2<¢ 

« 

StateInfor< 

GOSUB clrsave=(w(iid+e(iid)/2:ar=1¢ 

IF av>16® THEN WINDOW 2,x$, (8,25)-(148, 78) ,8,1¢ 

IF av<iél THEN WINDOW 2,x$, (170, 25)— (302, 98) , 8, 1¢ 
WINDOW OUTPUT 2< 

COLOR 3,@:PRINT "Capitali*:COLOR 2:PRINT s$(ii,5)< 
COLOR 3:PRINT “Largest City: “:COLOR 2:PRINT s@(ii,4 
M«€ 

COLOR 3:PRINT “Area in sq.mi.:"1COLOR Z2:PRINT s#(ii 
25)" "s€ 

FOR i=1 TO SOsIF abcS(id=s$(ii,2) THEN ar=i< 
NEXTIPRINT "("ar") "€ 

pers=s$(i1,5):GOSUB Percentage:PRINT per$"% of USAr 
ea"< 

COLOR 1:PRINT:PRINT “Hit SPACE";< 

FOR 198 TO 9: b®=INKEYS:NEXT< 

& DS=INKEYS: IF bS#<>" *° AND MOUSE(6)<>1 THEN &< 
WINDOW CLOSE 2:WINDOW OUTPUT 1:PAINT (xpos (ii), ypon 
4i)),1,3€ 
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IF 11°11 THEN c=1;GOSUB 98¢ 

IF iim22 THEN c#i:GOSUB 99<¢ 

IF port#1 THEN port=@:ii=37:G0TO S< 
GOTO Atlas< 

€ 


Percentage:< 

a$@STRS CINT (VAL (per) /usat19608) /180) : per $=RIGHTS (a 
$, LEN(a)—1)< 

RETURN€ 


€ 

Pickr<é 

x#=—“"sim@sae@: IF MOUSE(@)=1 THEN € 

X@MOUSE (3) 2 y=MOUSE (4) :pt=POINT (x, y)< 

IF x<4 OR x>3@@ OR y<4 OR y>i82 THEN Pick<é 

IF pt=@ THEN x$="salt water. yuch!":nogo*1:RETURNC 
IF pt=3 THEN x#="watch the border patrol !"snago=1:R 
ETURN< 
. IF pt#2 THEN x®""nice try kiddo! “inogo=1:RETURN¢€ 
PAINT (x,y),2,3:FOR i#1 TO S0< 

IF xow(i) AND x<e(i) AND yon(i) AND y<s(i) THEN x#= 
S81, 1) +", "+50(i,2)2jjel:ii=izGOTO 1¢ 

NEXT: PAINT (x,y), 1, 3snagoel<e 

1 IF i©11 THEN c@=2:GQSUB 978¢ 

IF i"22 THEN c=2:GQSUB 979< 

IF noago=i OR p2e1 THEN RETURN< 

GOTO StateInfo< 

END IFé 

nogo=1:RETURN < 

«€ 


easy:< 

Q=@INT (RND&50) +i: 1F qeit THEN easy< 

Ql=INT(RNDS3) < 

IF qi=® THEN q$=“Show me “ts$(q,1)+" on the map. "tr 
$25 (q,1)<€ 

IF qi=1 THEN q$=°Mail code for "t58(q,1)+"?":rgmse( 
qr2<€ 

IF qi#2 THEN q8="What state's “+s$(q,2)+" short for 
2" srSess (q,1)< 

GOTO qa< 

mediumi< 

QeINT(RNDSS0)+12IF q=ii THEN mediume 

QisINT (RNDE4) < 

IF qi=® THEN q$=s$(q,4)+" is the largest city of?": 
r@ss$(q,1)2IF 9$(q,4)s"Portland® THEN port=1< 

te a THEN q$=s$(q,3)+" is the capital of ?":rg=s¢ 
Os 

IF qi=2 THEN q$=“What’s the capital of “+s$(q,1)+"? 
*sr$=s$(q,3)¢ 

IF qis3 THEN q$=“Largest city of "+s$(q,1)+" is?" 
$=s$(q,4)¢ 
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GOTO qa< 

hard:<¢ 

QeINT(RNDSS@)+1:3F qzii THEN hard<¢ 

G1=INT(RNDS2) shard=t< 

IF qi=@ THEN q® rea of “+58(q,1)4" (4/- 152) 7% rs 
=s#(q,5)< 

IF qi=i THEN ar$<STRS (INT (RND&4) +2) 2 qQs="The"tar$+" 
« largest state ?":r#=<abcs (VAL (ar%))< 

qar€ 

COLOR 3,@:LOCATE 2,1:PRINT “Q:"3;:COLOR 2,8:PRINT gq? 
€ 

COLOR 3,@:LOCATE 3,1:PRINT " 
RETURN<€ 

< 

Kwits< 

WINDOW OUTPUT 1:WINDOW CLOSE 2< 

FOR is@ TO 1 STEP .O@2:PALETTE 3,i1/3,1/5,1sNEXT< 
FOR i=@ TO 1 STEP .@@2:PALETTE 1,.33,.87-1/1.43,1:N 
EXTé 

LOCATE 11,24:COLOR 2:PRINT "Bye, bye ..."< 

babble "thanx for bothering my bits. hurry back"< 
FOR i=m® TO 124 STEP .2:PALETTE 2,RND,RND, RND?LINE (8 
Ori, 10)—(S0+i , 175), Os NEXTS 

SYSTEM< 

« 

clrs¢€ 

LOCATE 1,1:FOR i=9 TO 3:PRINT “ 

mE 

NEXT: RETURNS 


rCOLOR 1,8¢ 


«< 

Drawusr<¢ 

READ x1,yl:IF xl=-1 THEN RETURN¢ 

LINE (x1, y1)—-(x2,y2),32x2ex1iey2=yi2:GOTO DrawJs< 
€ 

DrawState:< 

READ x1, y1,%2,y22IF x1=-1 THEN RETURNG 

LINE (x1, y1)—(x2,y2),3:GOTO DrawState< 

€ 


DrawAK: < 
READ xi,yitIF xl=-1 THEN RETURN€ 
LINE (x1, y1)— (02, y2) ,SrxZex ls y2ey12680TO PrawAK< 


€ 

98 PRINT (78, 143) ,c, 31PAINT (69, 138) ,c, 3: PAINT (98, 168 
1c, 3s PAINT (74, 158),c,5¢ 

RETURN < 

99 PAINT (205, 75) ,c, 32 PAINT (195, 68) ,c, St RETURNC 

< 

GeoPata:< 

DATA Alabama, AL, Montgomery, Birmingham, 38746, Alaska, 
AK, Juneau, Anchor age, S7883S, Arizona, AZ,Phoenix,s, 113 
519¢ 
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DATA Arkansas,AR,Little Rock,s,53187,California,Ca, 
Sacramento,Los Angeles, 156297<¢ 

DATA Colorada, Cd, Denver ,s, 183578, Connecticut,CT,Har 
tford, Bridgeport , 4872< 

DATA Delaware, DE, Daver ,Wi lmington, 1933,Florida, FL T 
al lahassee, Jacksonville, 54157, Georgia, GA, Atlant. 
Seses< 

DATA Hawaii,H1,Honolulu, 8,6427, Idaho, ID, Boise, 8,524 
13, Illinois, IL, Springfield, Chicago, 55646<¢ 

DATA Indiana, IN, Indianapolis, 5, 35936, Iowa, IA, Des Mo 
ines, 8, 55765, Kansas, KS, Topeka, Wichita, 51783¢ 

DATA Kentucky, KY,Frankfort,Louisville,39674,Louisia 
na,LA,Batan Rouge,New Orleans, 443520<¢ 

DATA Maina, ME, Augusta, Portland, 38995, Maryland, MD, An 
napolis, Baltimore, 9838¢ 

DATA Massachusetts, MA, Boston, s, 7826, Michigan, MI,Lan 
sing, Detroit, S6959¢ 

DATA Minnesota, MN, St.Paul , Minneapolis, 77548, Mississ 
ippi,MS, Jackson A7234¢ 

DATA, Missouri,MO,Jefferson City, St.Louis, 68945, Mont 
ana, MT, Helena, Billings, 145368< 

DATA Nebraska, NE,Lincoln, Omaha, 74639, Nevada, NV, Cars 
an City,Las Vegas, 199895< 

DATA New Hampshi NH, Concord, Manchester ,&772,New J 
ersey,NJ, Trenton, Newark, 7468¢ 

DATA New Mexico, NM, Santa Fe, Albuquerque, 1213536,New 
York,NY, Albany,New York, 47379<¢ 

DATA North Carolina,NC, Raleigh, Charlotte, 48843,Nort 
h’ Dakota, ND, Bismarck, Fargo, 69299¢ 

DATA Ohio, OH, Columbus, Cleveland, 41984, Oklahoma, OK,0 
klahoma City, 8, 68656¢ 

DATA Oregon, OR, Salem, Portland, 96187, Pennsyl vania,PA 
Harrisburg, Philadelphia, 44892<¢ 

DATA Rhode Island,RI, Providence, Providence, 1054, Sou 
th Carolina, 8C, Columbia, s,38297¢ 

DATA South Dakota,SD,Pierre,Sioux Falls,75956, Tenne 
ssee, TN, Nashville, Memphis, 41154€ 

DATA Texas X, Austin, Houston, 262815, Utah, UT, Salt La 
ke City, 5, 82076, Varmont, VT, Montpelier, Burlington, 92 
T3€ 

DATA Virginia, VA, Richmond, Nor folk, 3970, Washington, 
WA, Olympia, Seattle, 66512¢ 

DATA West Virginia,WV, Charleston, s,24124,Wisconsin, 
WI, Madison, Milwaukee, 54424¢ 

para Wyoming, WY, Cheyenne, Casper , 96988<¢ 


USBorder Dat: < 

DATA 62,37, 110, 43, 164, 46, 182, 52, 174, 5?, 1687, 56, 285,6 
@, 192, 65, 192, BB, 196, 83, 198, 8B, 199< 

DATA 65, 205, 42, 214,82, 228, 68, 252,54, 254, 39, 262, 38,2 
70,59, 269,65, 263,469, 251,80 < 
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DATA 247, 11, 251, 198, 228, 136, 239, 159, 238, 163, 230, 16 
1,216, 143, 219, 146, 194, 145¢ 

DATA 196,153, 171, 152, 155, 162, 157, 170, 148, 164, 136,15 
1,139, 150,128,155,112,2137< 

DATA 191, 139,65, 126,53, 113,44, 77, 56, 357,42, 43,62, 37, 
~1,-t€é 

« 

StateBorderDat:< 

DATA 46,71,99,83, 82, 104, 135, 113, 135, 112, 166, 111,84, 
81,75, 130,63, 76,59, 91¢ 

DATA 59,91, 78, 116, 106, GG, 101, 139, 112, 137, 129, 137,12 
9,137,129, 112, 129, 115¢ 

DATA 142,115, 142, 115, 142,125, 142, 125, 167, 128, 167,12 
8, 170,151,139, 126, 89¢ 

DATA 94,40, 75,77, 128,69, 191, 64, 191, 66, 98, 86, 98, 8, 1 
35, 90, 135, 98, 134, 112¢ 

DATA 87,48, 99,62, 98, 62, 198, 69, 1535, 46, 156, 84, 154, 846, 
165, 182, 165, 102, 167, 138< 

DATA 128,63, 153,64, 127, 79, 155, BO, 135, 95, 162, 96, 174, 
59, 171,68, 171, 48¢ 

DATA 181,81, 181,81, 178, 95, 178, 75, 19, 188, 190, 198, 18 
&, 120, 184, 128, 182, 132 

DATA 182, 132, 183, 143, 183, 143, 198, 143, 198, 143, 193,14 
6, 194,81, 195, 193, 195, 193¢ 

DATA 198, 108, 188, 80, 192, 79, 156, 76, 176, 76, 160, 92, 178 
292,166, 114, 187, 115¢ 

DATA 168, 133, 161, 133, 197,62, 212, 9, 206,92, 207, 96,28 
7 Oy 199, 1O3€ 

DATA 199, 103, 195, 193, 253,53, 268, 64, 260, 66, 248,67, 24 
8, 69, 244,58, 251, 68¢ 

DATA 252,55, 248, 70, 251, 78, 258, 73, 257, 70, 257, 70, 257, 
72, 255,71, 256, 74¢ 

DATA 251,76, 241,72, 241, 72,228, 77, 228,77, 225, 87, 225, 
89, 245, 84, 245, G4< 

DATA 244,75, 243, 84, 249, 92, 248, 71, 245,91, 245,971,242, 
85, 247,95, 238, 93€ 

DATA 238, 93, 237,89, 237, 89, 229, 90, 227, 90, 227, 88, 207, 
96, 217, 9B, 217, 98¢ 

DATA 224,87, 234, 98, 227, 192, 227, 192, 219, 183,219, 193, 
216, 99, 218, 192, 213, 198¢ 

DATA 188,113, 246, 192, 222, 1097, 212, 117, 184, 121,226, 11 
4,226, 114, 248, 121,217, 114€ 

DATA 231,131, 206, 116, 212, 148, 228, 139, 201, 141, 201,14 
1, 208, 145, 194, 119¢ 

DATA 197, 145, 52,51, 79%, 58, 181, 58, 192, 65¢ 

DATA 97,164, 183,171, 193, 171, 95, 176, 95, 176,95, 168, 94 
5168, 98, 164,91, 153¢ 

DATA 97,158, 97, 158, 92, 159, 92, 159, 98, 154, 84, 146,697, 1 
47,85, 151,86, 152, 79€ 

DATA 140,81, 144, 61, 144, 76, 144, 76, 144, 75, 141,75, 141, 


75 


CHAPTER TWO 


78,139, 71, 136,69, 139¢ 
DATA 69,139, 65, 137,65, 137, 68, 134, 66, 134, 72, 1356,-1,~ 


DATA 40,124, 53, 136, 46, 153, 59, 166, 58, 168, 47, 158, 35,1 
54,32, 159, 26, 158¢ 

DATA 12, 164, 14, 161, 25, 153, 16, 147, 18, 130, 27,124, 40,1 
2A m1, -1€ 

< 


FillDatr< 

DATA 280, 130,34, 135, 978, 120, 180, 128, 68, 198, 128, 190,2 
55,75, 246, 89, 238, 159¢ 

1 78, 143, 88, 70, 199, 90, 208, 9B, 170, BD, 149, 
160, 149¢€ 


68, 148, 98< 
55, 68, 250, BO, 120, 120, 249, 79, 248, 110, 148 
+58, 215, 98, 150, 126¢ 
DATA 76,48, 230, 89, 257, 72, 238, 120, 149, 79, 200, 115, 158 
9149,98, 98, 250, S8< 
DATA 240, 108, 78,50, 225, 9S, 160, 74, 119, B8< 
« 
PickDatr< 
DATA 197,207,119, 148, 15,59, 124, 168,61, 192, 119, 1356,1 
69, 183,115, 133,45, 68€ 
DATA 75,120,196, 135,98, 109,251, 257, 73, 78, 244, 248,87 
193,202, 248,141, 163€ 
DATA 213, 224,123, 139,67, 195, 135, 177,77, 97, 68, 78, 164 
1196, 88, 183, 196, 287<¢ 
DATA 82, 98, 161,178, 77,92, 136, 163, 96,111, 201,216, 101 
1108, 178, 164,135, 152¢ 
DATA 257,271, 39,597,238, 245, 84, 94, 252; 264, 67, 78,195, 
“214,57, 88, 156, 172, 45, 76¢ 
DATA 185, 196, 125, 143, 164, 177, 92, 114, 91, 128, 41,66, 13 
6, 157, 80, 95, 68, 82, BB, 192¢ 
DATA 253, 2597, 61,67, 245, 252,79, BS, 195, 138, 112, 137,22 
2, 246,59, 72, 222, 251¢ 
DATA 106, 114, 130, 154, 45, 64, 207, 228,82, 96, 143,167, 11 
2,125, 47576559, 71¢ 
DATA 225, 245, 77, 85, 256, 269,71, 75, 228, 234, 117, 128,12 
9,155, 64,79, 196, 214¢ 
DATA 112, 118, 130, 167, 129, 178, 85, 105,87, 184, 247, 252, 
5G, 69, 231, 249, 96, 192¢ 
DATA 52,88, 38,51, 222, 228, 98, 182, 189, 193,65, 79, 192,1 
27,768, 86¢€ 
< 


TrackDat:<¢ 

DATA 240, 76,MD, 238, 88, MD, 235, 88, MD, 231,89,MD, 227, 90 
» WV, 223,89, WV, 219, 68, OHE 

DATA 215,88, OH, 219, 89, OH, 295, 90, IN, 281, 98, IN, £99, G7 
» IN, 194, 85, IN, 194,82, Dé 
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DATA 241,98, VA, 248, 161, VA, 243, 195, NC, 239, 197, NC, 236 
113,NC, 239, 117,NC< 

DATA 235, 129, SC, 232, 122, SC, 229, 124, SC, 225, 126, GA, 22 
1, 127,GA, 217, 128, GA¢ 

DATA 213, 129, GA, 209, 132, AL, 205, 130, AL, 261,130, AL, 19 
7,131, AL, 193, 132, MS€ 

DATA 169, 133, MS, 185, 234,MS, 181, 135,LA, 177, 135, LA, 17 
3, 135, LA, 169, 136,LA< 

DATA 165, 134, TX, 161, 136, TX, 157, 135, D, 248, 96, VA, 236, 
95, VA, 232, 95, VA, 228, 95, WE 

DATA 224, 96, WV, 228, 96, WV, 216, 97, 0H, 212, 98, KY, 208, 98 
KY, 204, 98, IN, 280,99, INC 

DATA 196, 180, IN, 192, 169, IL, 188, 101, IL, 164, 102, M0, 18 
0, 102,MO, 176, 103, MO< 

DATA 172, 104,MO, 168, 195, MD, 144, 196, KS, 160, 187,K8, 15 
6, 106, KS, 153, 118, K3¢ 

DATA 151,113, 0K, £49, 115, OK, 245, 116, OK, 141, 2146, TX, 13 
7,117, TX, 133,117, TX€ 

DATA 136, 118, TX, 125, 118,NM, 122, 116,NM, 117, 117,NM, 11 
3, 117,NM, 109, 116, NM< 

DATA 105, 115,NM, 181, 114, AZ, 97,113, AZ, 93,112, AZ, 89,1 
11,AZ, 85, 118, AZ< 

DATA G1, 118,AZ,77,118,NV, 74, 113,CA, 71, 115, CA, 68, 117 
»CA, 65, 119, CA, 41, 128, De 

€ 


SUB babble (a%) STATIC< 
SAY TRANSLATES (a$)< 

END SUB< 

« 
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Hickory, Dickory, 
Dock 


Barbara Schulak 
Translation by John Krause 


Fun and educational, “Hickory, Dickory, Dock” helps 
children learn the concepts of telling time by relating 
a digital clock display to a conventional clock face. 
Includes speech synthesis. 


“Hickory, Dickory, Dock’ offers an enjoyable way for children 
to learn how to tell time. Type in the program; then save a 
copy before running it. You'll also need to set Preferences to 
60 columns. 

When you run Hickory, Dickory, Dock, it displays a 
round clock face as well as a digital display. Four different ac- 
tivities are available. The first option lets youngsters practice 
telling time. As the positions of the clock hands change on the 
screen, the digital clock display changes as well. This shows 
the relationship between the spatial position of hands on a 
clock face and the numeric representation of time. 

The other three activities test a youngster’s time-telling 
ability for hours only, hours and half-hours, or five-minute in- 
tervals, Pick the option you want from the menu bar using the 
right mouse button. Move the hands to the correct position by 
using the mouse pointer and left button to change the hours 
or minutes. Button detection can be slow; be sure to hold the 
button down for about one full second. After five correct an- 
swers, the program plays a brief song and displays some 
graphics as a reward. After three incorrect choices, the pro- 
gram automatically moves the clock hands to the correct 
position, 
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Hickory, Dickory, Dock 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


CLEAR, 3909¢ 

GOSUB init< 

loop: < 

MENU 1,9,1¢€ 

IF MENU(@)=1 THEN ON MENU(1) GOSUB practice,hours,h 
alf, five, quit< 

IF p THEN GOSUB SetClocké 

GOTO loop< 

practice:< 

COLOR 3,@:LOCATE 2,17:PRINT “ Practice "€ 
SAY TRANSLATES ("praktis. ")<€ 

inute=0:GO0SUB UpdateAnalag< 

=i MinuteDigital=6:GOSUB UpdateDigital< 


RETURNE€ 

hours: € 

p=@:COLOR 3,9:LOCATE 2,17:PRINT “ Hours Test "<€ 
SAY TRANSLATES ("hours test.")< 

FOR count=1 TO S¢ 

MinuteDi gi tal =9: HourDigital=INT (RNDS12) #12¢ 

GOSUB GetAnswer< 

NEXT€ 

GOSUB music¢ 

RETURNE€ 

halfz¢ 

P=G:COLOR 3,0:LOCATE 2,17:PRINT "Half Hours Test"€ 
SAY TRANSLATES ("half hours test.")¢ 

FOR count=1 TO S<¢ 

MinuteDi gi tal =CINT (RND) *72: Hour Digi tal=INT(RND&12)% 
12€ 

GOSUB GetAnswer< 

NEXT€ 

GOSUB music< 

RETURNE 

five:<¢ 

p=@:COLOR 3,@:LOCATE 2,17:PRINT " S Minute Test"< 
SAY TRANSLATES ("five minut test.")¢€ 

FOR count=1 TO S¢ 

MinuteDi gital=INT (RND*12) #12: HourDi gital=INT (RND&12 
2812¢ 

GQOSUB GetAnswer< 

NEXT< 

6OSUB music< 

RETURN 

quits< 

SYSTEM< 

SetClock:€ 

answer =3< 
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IF MOUSE(9)=1 THENS¢ 

IF MOUSE (3) >228 AND MOUSE(3)<29@ THEN€ 
IF MOUSE (4)>27 AND MOUSE (4)<36 THEN 
GOSUB IncHour< 

IF p THEN GOSUB IncHourDigital< 

END IF <€ 

IF MOUSE (4) >45 AND MOUSE (4)<5S4 THEN< 
GOSUB IncHinute< 

IF p THEN GOSUB IncMinuteDigital< 

END IF <€ 

IF MQUSE(4)>63 AND MOUSE (4)<72 AND p= THEN< 
COLOR 1,9¢€ 

IF INT (hour /12)=HourDigital/12 AND minute=MinuteDig 
ital THEN€ 

LOCATE 19,23:PRINT “Correct! "<€ 
answer=2:SAY TRANSLATES (°corekt.")< 
ELSE<€ 

LOCATE 19,23:PRINT “Wrong! "< 
answer=1:SAY TRANSLATES ( “wrong. ")<€ 

END IF<€ 

FOR i=@ TO 2096: NEXT< 

LOCATE 19,23:PRINT SPACE$(9)< 

END IF<€ 

END IF< 

END IF¢ 

RETURNE 

GetAnswer :< 

MENU 1,9,6¢ 

GOSUB UpdateDi gi tal : wrong=9< 

loopi: GOSUB SetClack< 

IF answer=@ THEN loopl<¢ 

IF answer=2 THEN<€ 

RETURN< 

ELSE< 

wrong=wrongti€ 

IF wrong<3 THEN€ 

GOTO loopi< 

ELSE< 

WHILE MinuteDigital<>minute:GOSUB IncMinute:WEND< 
WHILE HourDigital /12<>INT (hour /12):GOSUB IncHour: WE 
ND€ 

count=count—1¢ 

FOR t=6 TO 4990: NEXT< 

END IF< 

END IF€ 

RETURN€ 

musics < 

FOR i=@ TG 27:SOUND f{i),t(i):SOUND 6, 1:NEXT:RETURN 
€ 

IncHour Digital:< 
HourDigital=(QidHourDigital+12) MOD 144¢ 
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GOSUB UpdateDigital< 

RETURNE 

IncMinuteDigital:< 
MinuteDigital=(OldMinuteDigital+12) MOD 144<¢ 
Hour Digital=(OldHourDigital+1) MOD 144< 

GOSUB UpdateDigital<é 

RETURN€ 

IncHour : < 

hour=(OldHour+12)? MOD 144< 

GOSUB UpdateAnal og¢ 

RETURNE€ 

IncMinutes< 

minute=(OldMinute+1iZ2) MOD 144< 

hour=(OldHour+1) MOD 144¢€ 

GOSUB UpdateAnal og< 

RETURN< 

number : € 

COLOR 1,2< 

LOCATE rlid,ctid€ 

IF i>9 THEN PRINT "1i"5€ 

PRINT CHRS(48+(i MOD 10))< 

RETURNE€ 

UpdateDigital:< 

GOSUB DrawDigital¢ 

O01 dHour Di gi tal =Hour Digital :OldMinuteDigital=MinuteD 
igital< 

GOSUB DrawDigital< 

RETURNE¢ 

DrawDigital:< 

IF QldHourDigital<12 THEN OldHourDigital=OldHourDig 
ital +144¢ 

IF QldHourDigital>119 THEN PUT (165,139),d(9,1)< 
PUT (208,139) ,d(@, (O2}dHourDigital\t2) MOD 19)< 
PUT (245, 139),d(@, INT (Ol dMinuteDi gi tal *5/129))< 
PUT (288, 139),d(0, (OldMinuteDigital#5\12) MOD 19)< 
RETURN€ 

ClrAnalog:< 

GOSUB MinuteHand< 

COLOR 2:AREAFILL< 

GOSUB HourHand< 

AREAF ILL< 

i=CINT(OldMinute/t12):IF i=@ THEN i=12¢ 

GOSUB number < 

RETURNS 

UpdateAnalag:< 

S0SUB CirAnalog< 

OldMinute=minute:GOSUB MinuteHand<¢ 

COLOR 1:AREAFILL<€ 

Ol dHour=hour :GOSUB HourHand< 

AREAFILL€ 

RETURNE€ 
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MinuteHand: < 
AREA tcx,cy€ 

AREA (cxt6Stx ((Oldtinute+143) MOD 144), cy+ésty ((Old 
Minutet+143) MOD 144))< 

AREA (cx+88%x (OldMinute MOD 144), cy+a@%y (OldMinute 
MOD 144))< 

AREA (ext6Gtx ((O1dMinutet1) MOD 144),cy+agsy ((OLdMi 
nuteti) MOD £44))< 

RETURNE 

HourHand:< 

AREA (ex, cy)€ 

AREA (cx+4G%x ((O2dHour+142) MOD 144) ,cy+4@8y ( (OldHo 
ur+142) MOD 144))€ 

AREA (cx+59%x (OldHour MOD 144), cy+58%y (OldHour MOD 
144).€ 

AREA (ex+4@%x ((O1dHour+Z) MOD 144), cy+4@xy ((GldHour 
+2) MOD 144))<€ 

RETURN 

initre€ 

SAY ""<€ 

SCREEN 2,320, 208,2,1< 

WINDOW 2," Hickory, Dickory, Dock ",,2,2€ 

PALETTE G,.6,.5, .3€ 

PALETTE 1,6,0,0¢€ 

PALETTE 2,.7,.7,-7€ 

PALETTE 3,9,9,9¢€ 

DIM 5(306, &) ,d (360, 9) ,x (143), y (143) 7 (12), (12), (2 
7), t(27€ 


MENU 1,9,1, “Test “e 
MENU 1,1,1,"Practice “€ 
MENU 1,2, 1, “Hours ne 


MENU 1,3,1,"Half hours"< 

MENU 1,4,1,°S minute "<€ 

MENU 1,5,1,“Guit "€ 

MENU 2,9,8,"":MENU 3,6,9,"":MENU 4,9,5,""<€ 
RANDOMIZE TIMER€ 

pi=48ATN(1) rp=1< 

FGR i= TO 143< 

x (i) =C0S (pi #4 /72-.5) 0< 

y G)=SIN (pi #3 /72-.5) 8. 84¢ 

NEXT€ 

FOR i= TO &< 

CLS:READ ké 

FOR j=1 TO k:READ x,y:AREA (x,y) :NEXTE 
AREAFILL:GET (,6)—(32, 48) 518, id< 

NEXT < 

FOR j=9 TO 9¢ 
CLS:READ as< 
FOR i=1 TO 7< 
IF MID$(a$,i,1) 
NEXT€ 


" THEN PUT (8,9),5(G,i-1L)<€ 
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GET (8,0)-(32,48),d(B, 5) € 

NEXT€ 

CLS:ERASE s¢ 

TO 12:READ r(i)d,c(i)sNEXT€ 

TQ 27:READ f(i),t (i) sNEXT< 

Cx=199: cy=85¢ 

CIRCLE (cx, cy),160,1:PAINT (ex,cy),1€ 

CIRCLE (cx, cy),9G,2:PAINT (cx,cy),2€ 

COLOR 1,2¢ 

FOR i=1 TO 12:GOSUB number:NEXT¢ 

FOR i=@ TO 143 STEP 12€ 

CIRCLE (cx+84ax (i) ,cytO4ky (id), 3¢ 

PAINT (ext+84%x (i), cytB4ay (id) < 

NEXT <€ 

FOR i=@ TO S9<€ 

dx =COS (pi # (i /3G-. 5) ) sdy=SIN (pi (i /38-.5) 0 < 

LINE (cx+82%dx, cy+69%dy) -STEP (4xdx, S8dy)< 

NEXT 

€ 

LINE (185, 135)-(326, 200) ,2,b#< 

CIRCLE (236,151),3:PAINT (236, 151L)€ 

CIRCLE (236,171),3:PAINT (236,171)€ 

GOSUB DrawDigital<€ 

LOCATE 4,25:PRINT “ Hours "< 

LOCATE 4,23:PRINT “Minutes"< 

LOCATE 8,23:PRINT “ QK? “< 

SAY TRANSLATES (“welcome to hickory ditkory dock.")<€ 
GOSUB practice< 

RETURN€ 

DATA 4,9,1,6,21,4,19,4,5 < 

DATA 4,1,8,26,9,22,4,5,4< 

DATA 4,27, 1,27, 21, 23,19, 23,5€ 

DATA 4, 27,23, 27,43, 23,39, 23, 25€ 

DATA 4,26, 44, 1, 44,5, 40, 22, 4B< 

DATA 4,6,43,9,23,4, 25,4, 39¢ 

DATA 6, 1,22, 6, 26,22, 20, 26, 22, 21,24,5, 24€ 

DATA 1121116, 6911996, G119111, 9111191, 1911991¢ 

DATA 1191101, 1101111, 6111660, 1111111, 1111192€ 

DATA 4,14,7,17, 1, 18, 13, 17, 16,14, 17, 11¢ 

DATA 14,7, 13,4, 18,3, 7,454,753, 1B€ 

DATA 783.99, 2, 783.99, 2, 783.99, 2, 889, 2, 98S, 2, 88, 2,7 
83.99, 11¢ 

DATA 783.99, 2, &59. 26,5, 657. 26, 2, 698. 46,5, 698. 46,2,6 
59. 26,11€ 

DATA 659.26, 2,523.25, 5, 523. 25, 2, 659. 26,5, 659. 26, 2,5 
87.33,5, 587.33, 2,889, 8¢ 

DATA 783.99, 2,886, 2, 783.99, 2, 698. 46, 2, 659. 26, 2,587. 
33,2, 523.25, 11€ 

< 
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Switchbox 


Todd Heimarck 
Translation by Philip I. Nelson 


A challenging two-player game of strategy, 
“Switchbox” looks easy at first, but takes time to 
master and permits many variations. Includes 
speech and stereophonic sound effects. Requires 
512K of memory. 


Playing “Switchbox” is like putting dominos in place for a 
chain reaction—either you're setting them in position or 
you're knocking them over. Winning requires skill and a sense 
of when to go for points and when to lie back and wait for a 
better board. The goal is simple: You try to score more points 
than your opponent by dropping balls into a box full of two- 
way switches. Each switch has a trigger and a platform. If the 
ball lands on an empty platform, it stops dead. But if it hits a 
trigger, it reverses the switch and continues. In many cases 
dropping a single ball creates a cascading effect—one ball sets 
another in motion, which sets others in motion, and so on, all 
the way down. 

Type in the program listing and save a copy before you 
run it. Before running the program, make sure that the 
Amiga’s display is set for 80 columns of text (if it isn’t, the 
numbers printed on the screen won’t match the rest of the dis- 
play). If you’ve previously changed the display to 60 columns, 
open the Preferences icon and change it back to 80; then close 
Preferences, activate BASIC, and run the program as usual. 


A Box of Switches 

Switchbox is a tale of 2’s: Each switch has two parts, two posi- 
tions, two states, two paths in, and two paths out. The two 
parts are the platform and the trigger. A switch can lean to the 
left (platform left, trigger right) or to the right (platform right, 
trigger left): 
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Figure 1. Switch States 
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The trigger is weak, and always allows balls to pass. But 
the pletion: is strong enough to hold a single ball. So the 
platform either holds a ball—it’s full—or it does not and is 
empty. When a bail sits on a platform, the switch is said to be 
loaded, or full. 


Figure 2. Loaded Switch 
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Figure 2 shows a full switch over two empty switches, 
The platform holds a ball and leans to the left. The trigger ex- 
tends to the right. Note that the switch on top has two path- 
ways leading in, the left path and the right, and that the right 
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path leading out is the left path into one of the switches be- 
low. The left path of the top switch leads into the right path 
of the switch below and to the left. If you drop a ball down 
the righthand path, it hits the trigger and flips that switch to 
the right. Then it continues down, hits the lefthand trigger be- 
low, and flips that switch as well. 

In the meantime, the ball on the platform is set in motion 
(when the switch is flipped); it then hits the trigger. The top 
switch is reset to point to the left. The second ball then drops 
a level to the platform below, where it stops. The playing field 
is composed of five levels, with four switches in the first level 
and eight in the bottom level. At the beginning of the game, 
there are no balls on the field—all platforms are empty—and 
the position of each switch is chosen randomly. 


Moving down the Path 

Players alternate dropping balls into one of eight entry points. 
These balls (and others) may or may not make it all the way 
through the switchbox to one of the 16 exit paths. Balls fall 
straight down (with one exception), so a ball’s movement is al- 
ways predictable. When it hits an empty switch, one of two 
things can happen. If it lands on the empty platform, it stops 
dead in its tracks. But if it lands on a trigger, it falls through to 
the next level below. 

Moving balls always make it through loaded switches. 
Triggers allow balls to continue, and move the switch to the 
other position. If the switch is loaded, the dead ball on the 
platform is put into motion and it hits the trigger that just 
moved over, This makes the switch go back to its original po- 
sition, but with an empty platform. So when a ball hits the 
trigger of a loaded switch, its motion continues unabated. The 
switch moves, the ball on the platform begins to fall, and it 
hits the newly placed trigger. The newly emptied switch 
moves back again, and the two balls drop to the next level. 

There’s one more possibility: a ball dropping onto a plat- 
form that already holds a ball. A platform can’t hold any more 
than one ball, so when this happens one of the balls slides 
over to the trigger. So the ball does not move straight down— 
it slides over to the next pathway. This is the exception to the 
rule that balls drop in a straight line. Of course, when the ball 
hits the trigger, the switch changes position, causing the other 
ball to drop and hit the trigger. 
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The Chain Reaction 

At the game’s start, all platforms are empty, so four of eight 
entry paths are blocked. Remember that your turn ends when 
a ball hits an empty platform and stops. As the switches fill 
up, the chances increase that a ball will descend through sev- 
eral levels. The goal is to score points by getting balls to pass 
all the way through the maze of the switchbox. The best way 
to collect a lot of points is to cause a chain reaction. 

A ball that hits a loaded switch from either side continues 
on its way. And the previously inert ball on the platform starts 
moving. One enters; two exit. If both of those balls encounter 
full platforms, four drop from the switches. The pathways are 
staggered, so the effects can spread outward, with more and 
more balls cascading toward the bottom, 

Rather than taking an easy point or two, it’s often worth- 
while to build up layers of loaded switches. Watch out for 
leaving yourself vulnerable, though. Because players take turns, 
you'll want to leave positions where your opponent's move 
gives you a chance to create a chain reaction. The best strategy 
is to play defensively. Look ahead a move or two, and watch 
for an opening that allows you to score several points at once. 


Four Quarters 

A game of Switchbox always lasts four rounds. In the first 
(equality), each exit counts for 2 points. Your goal is to score 
10 points. The second quarter has more points available, as 
well as a higher goal. If you look at the exits, you'll see that 
the further they are away from the middle, the higher their 
point value. The numbers increase in a Fibonacci sequence: 1, 
2, 3, 5, 8, and so on, Each number is the sum of the previous 
two (1 + 2 = 3,2 + 3 = 5,3 + 5 = 8, and so on), The tar- 
get score in round 2 is 40. 

In round 3 the numbers are a bit lower. They increase 
arithmetically (1, 2, 3, 4, and up to 8 in the corners). A goal of 
20 points brings you to round 4, where you can score big. 
Here the numbers are squares: 1, 4, 9, 16, 25—all the way to 
64 at the edges. In rounds 2-4, it’s sometimes prudent to leave 
a middle path open for your opponent to score a few points, 
in order to gather a high score on the big numbers to the left 
and right. 

Each round lasts until one player has reached the goal. At 
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that point the other player has one last turn before the round 
ends. It’s possible to win the round on this last-chance play; 
watch out for barely topping the goal and leaving a chain re- 
action open for the other player. An arrow points to the score- 
board of the player whose turn it is. On the other side of the 
screen, you'll see a number where the arrow should be. That's 
the goal for the current round (the Amiga version displays the 
goal on both sides of the screen, below the scoreboards). 

Bonus points are awarded at the conclusion of each 
round. Four numbers appear below the scoreboards. The first 
is simply the total at any given point in the game. The second 
is the total plus a bonus of the goal for the round if the play- 
er’s points are equal to or greater than the goal. For example, 
if the goal is 20 and you get 18, there’s no bonus. If you score 
22, the bonus is the goal for that round (20) and you'll have 
42 points. The third number under the scoreboard is the dif- 
ference between scores for the rounds. If you win by 2 points, 
2 points are added to your score (and 2 subtracted from the 
other player's). The final number is the grand total of the first 
three scores and bonuses. Rounds 1 and 3 are fairly low-scoring, 
with low goals. You may want to seed the field with extra 
balls during these quarters, so you can collect more points in 
the second and fourth quarters. 


Variations 

Although the goal of the game is to score the most points, 
there’s no reason you couldn’t agree to play for low score. In a 
“lowball” game, you would try to avoid scoring points. You 
wouldn’t necessarily play backwards; you would have to ad- 
just the strategy of where to place the balls. Fill up the board 
as much as possible and leave your opponent in a situation 
where he or she is forced to score points. 

The Setup routine determines the goal for each round and 
the point values for the exit paths. You can prolong the game 
by doubling the goals; this also dilutes the value of a big score 
at the beginning of a round, preventing one player from win- 
ning on the first or second tum. An interesting variation is to 
assign negative values to some slots. If some paths score nega- 
tive points, you are forced to think harder about where the 
balls will drop. 

In addition to the numbered keys (1-8), the plus (+) and 


88 


(= 


( 


( ae 


Education 


minus (—) keys are active. Pressing plus drops a ball at ran- 
dom down one of the eight entry paths. Pressing minus allows 
you to pass your turn to your opponent. 

Once you've mastered the regular game, you can add 
some new rules. Each player gets three passes per half, similar 
to the three timeouts in a football game. If you don’t like the 
looks of the board, press the minus key to use one of your 
passes. After one player has skipped a turn, the other player 
must play (this prevents the possibility of six passes in a row). 
It’s also a good idea to make a rule that a player can’t pass on 
two consecutive turns. You could also give each player two 
random moves to be played for the opponent. In other words, 
after making a move, you could inform your opponent that 
you're going to give him or her one of your random moves, 
and then press the plus key. 

Here’s one more change you could make: Instead of alter- 
nating turns, allow a player to continue after scoring. When a 
player drops a ball and scores some points, the other player 
will have to pass (by pressing the minus key). If the first 
player scores again, the opponent passes again, and so on un- 
til no more points are scored. 


Playing Solitaire 

To drop a ball, press a numbered key (1-8). The numeric 
keypad is convenient for choosing a move. By using the pass 
and random-turn options, you can play against the computer. 
Here are the rules for solitaire play: 


1. The computer always scores first. At the beginning of every 
round, the computer plays randomly until at least one point 
is acquired. Press the plus key for the computer's turn. You 
must continue passing (skip your turn with the minus key) 
until the computer puts points on the board. 

2. After the first score by the computer, you can begin to play. 
When the computer has a turn, press the plus key for a ran- 
dom move. 

3. Whenever you make points, you must pass again until the 
computer scores. When the computer gets more points, you 
can begin to play again. This rule means you should hold 
back on the easy scores of a few points; wait until there’s an 
avalanche available. 

4. If you're the first to reach the goal, the computer gets a last 
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chance. Don’t make this move randomly; figure out the best 
opportunity for scoring and play that move for the last- 
chance turn. 


In the interest of keeping these programs to a manageable 
length, no attempt has been made to provide an “intelligent” 
computer opponent. Once you become familiar with the game, 
you might find it an interesting project to try adding some 
routines that give the computer a rational basis for picking one 
move over another. 


Switchbox 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


*Switchbox for 512K Amiga¢ 

*Set Preferences for 89 columns¢ 
< 

Restart:<¢ 

CLEAR: GOSUB Setup< 

< 

Main: € 

FOR Round=1 TO 4< 

PUT (89, 7+Rounds9) , Ball < 

PUT (515, 7+Rounds8) , Ball<¢ 

GOSUB Values € 

SAY TRANSLATES (Intros (Round) )< 
Keepgoing:< 

Who=i-Who ’alternate players< 
GOSUB Taketurn < 

IF SC(1-Who, Round)=>Points(Round,S) THEN Nextroundé 
GOTO Keepgoing< 

€ 


Nextround:< 
FOR j= TO 1:FOR k=5 TO B€ 
SC(j,k)=@: NEXT: NEXT€ 

FOR TO 1:FOR k=1 TO 4€ 

gx=Paints (k, 8) 2ac=SC (i, kI€ 
SC(4,5)=SC(j,5)+ac¢ 
SC(j,6)=SC(j,6)—(ac=>gx) tgx< 
SC(5,7)=SC(4,7)+SC(5,k)-SC (1-5, kK 
NEXT: NEXT< 

FOR j=@ TO 1:FOR k=6 TO 7<¢ 
SC(i,k)=SC(5,k)+SC(5,5)€ 

NEXT: NEXT€ 

FOR j-@ TO 1:FOR k=5 TO 7< 

SC 1 §,8)=SC (5, 8)+45C05,k€ 


FOR k=5 TO S:y$=STRS(SC(5,k)<€ 
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XSLEN (y$) 2 tx=84 5 864—x 2 tys4tke 
LOCATE ty,tx-1:PRINT SPACES(2)< 
LOCATE ty,tx:PRINT y3€ 

NEXT: NEXT€ 

NEXT Round < 

€ 

Gohome: € 

LINE (249, 79)-(362, 19) ,2,bf< 
LOCATE 11,32:PRINT " Play again? “ 
text $=Who$ (ABS (SC (£8) 9ST, 8) < 
text$=texts+" wins this game.."<€ 
text$=text$+"How about another?"< 
SAY TRANSLATES (text$) < 

FOR i=0 TO 10:x$=INKEY$:NEXT< 
Again: € 
x$=INKEY$: IF x 
SAY TRANSLATES (” 
IF x$="y" OR x$= 
t< 

SAY TRANSLATES(” Bye-bye. “)< 
WINDOW CLOSE 2€ 

ENDS 


Taketurni€ 

FOR j=6 TO nb:LB(j,9)=G:NEXTznb=1¢€ 

SAY TRANSLATES (Whos (Who) +CHRS (46) >< 

PUT (149,5),Larrow:PUT (449,5),Rarrowé 
FOR j=@ TO 9:xS=INKEY$: NEXT€ 

Getkey:< 

at=INKEY$: IF a$="—”" THEN RETURN€ 

IF a$="+" THEN aS=STRS CINT (RND(1) #8+1) >< 
=VAL(a%):IF (a<i) OR (a>@) THEN Getkey< 
LBtG,@)=1¢ 

FGR j=1 TO 3:LB(6, j)=@:NEXT€ 
LB(G,4)=at+Se 

Moreballs:< 

ex=1:FOR j=8 TO nb< 

IF LB(i,@) THEN ex=9:6GSUB Moveone< 
NEXT: IF ex=@ THEN Morebails< 

x=@:FOR j=13 TO 7 STEP -3:FOR k=x TO 15-x<€ 
PUT (Column (k) ,Row(j)+1),Blank, ANDE 
NEXT: x=x +1: NEXT: RETURNE 

© 

Moveone: < 

dy=LBtj,@)sdx=LB( 5,1) LY=LB(I,2)< 
ny=LB(j,3)2nx=LB(j,4¢ 

IF ny THEN< 

PUT (Column (nx) ,Row(ny+(LY#3) ) +1), Blank, AND€ 
END IF¢ 

LB(j,3)=tny+1) MOD 3< 

ON ny+1 GOTO Pos@,Posi,Pos2¢ 


THEN Again<€ 
Ke 
"Y" THEN WINDOW CLOSE 2:60TO Restar 
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* 

Posd:< 

IF LY>4 THEN L5(j,9)=6:GOTO Scoreé 
vx=@:GOSUB Whichway< 

IF (SWtwx,wy,1)) AND (SWitwx,wy,d)=sd) THEN 
vx=1-2%5d:LB(j, 3) =ny+1:LB(j, 4) =nxtvx€ 
GOTO Putball< 

END IF< 

IF SW(wx,wy,9)=sd THENS 

LB(5,9)=8 € 

SW(wx, wy, 1) =Leny=nytle 

GOTO Putballé 

END IF€ 

LB(j,5)=sny+2:GOTO Putball<é 

< 

Posi:<¢ 

LB(j,1)=@:LB(5,4)=nx+dx:GOTO Putball<€ 
€ 

Pas2:¢€ 

LB(j,2)=LY+1:GOSUB Whichway¢ 

SW (wx, Wy, 8) =1-SW (wx, wy, 3) < 

‘IF SW(wx,wy,1) THENS 

PUT (Column (LB( 3,4) +1—-sd%2), Row (ny+(LY*3))),Blank,A 
NDE 

LBinb,)=1:LB (nb, t)=9:LB nb, 2)=LY<€ 

LB (nb, 3) =@:LB (nb, 4) =nx+1—sd&2:nb=nb+1€ 
SW wx, wy, 1) =BE 

END IF<€ 

sx =Xpos (wx, wy) :sy=Ypos (wx, wy) < 
wp=SW (wx, wy, < 

"Always fall thru to switche 

€ 

Switch: < 

PUT (sx,sy),Swblank, AND< 

ON wp+1 GOTO Left,Right< 

Left:¢ 

PUT (sx,sy),Lswitch,OR:GOTO Bop< 
Rightr<€ 

PUT (sx, sy),Rswitch,OR€ 

Bop:<¢ 

SOUND 199,1,64,1< 

€ 

SOUND 259, 1,64,3¢€ 

RETURNE 

€ 

Putball:<¢ 

SOUND INT(RND(1) 419) &{3O8LY) +296, 1,64, 9¢ 
PUT (Column (nx), Row {ny+<(LY83) +1)), Ball, OR< 
RETURNS 

< 

Whichway:¢ 
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wx=LYs wy=INT ( (nx +L¥—-4) /2) ssd=(nx+LY) AND 1:RETURNE 
€ 

Scores¢ 

sf=Points (Round, nx +1) :sq=SC (Who, Round) +5#< 
tx=B+63%Whot (8g 59) + (5g>99) + (5g >999) € 
ty=2+Round: a$=MID$(STR$ (sq), 2) € 
LOCATE ty,tx:PRINT a%< 

SC (Who, Round) =sg¢ 

FOR j=1698 TO 200 STEP ~390« 

SOUND j,1,64,0¢ 

SOUND j+460,1,64,3¢ 

NEXT: RETURNE 

« 

Values: € 

FOR j=@ TO 1¢€ 

k=2+704% j:LOCATE 15,k¢ 

PRINT SPACE$(3):LOCATE 15,k<¢ 

PRINT RIGHTS (STRS (Points (Round, @)),3)€ 
NEXT< 

FOR j=1 TO 16:k=Points (Round, j)< 

M=Gt J¥3.75€ 

IF k>9 THEN€ 

X=INT(K/19)€ 

XS=MIDS(STRS (x), 2,10 € 

ELSE€ 

x $=CHRS$ (32) € 

END IF€ 

LOCATE 22,m:PRINT x5 € 

LOCATE 23,m:PRINT RIGHTS (STR#(K),1)5<¢ 
NEXT: RETURNS 

€ 

Setup:< 

RANDOMIZE TIMER< 

Greet $="Hi. Welcome to Switchbox,"¢ 
PRINT Greet$:SAY TRANSLATES (Greet #)< 
SCREEN 2, 64@,200,2, 24 

PALETTE 9, 9, 6, B¢ 

PALETTE i, 1, 1, 1¢ 

PALETTE 2, 8, .1, .7 € 

PALETTE 3, t, 1, .13¢ 

WINDOW 2, "Switchbox", ,@¢ 

DIM Larrow(39),Rarrow (3) ,Wav% (256) ,Lefthunk (498) € 
DIM Righthunk (499) , Swhl ank (199) ,Rswitch (298) < 
DIM Lswitch (208) , Column (14) ,Row(25)< 
DIM Blank (79), Ball (4@),Piece(8d)< 

DIM SW(8,8,1),LB(32, 4), Points (4, 16),5C(1,8)¢ 
FOR j=@ TO 19:LINE (9,5)-(18, j),3¢ 
NEXT€ 

LINE (19,3)-(29,7),3,bf<€ 

GET (8,9) -(29, 19),Larrowé 

PUT (8,9),Larrow< 
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FOR j=@ TO 19¢ 

LINE (20,5)-(19, 3), 3€ 

NEXT€ 

LINE (@,3)-(19,7),3,bf< 

GET (@,@)—{28,19),Rarrowé 

PUT (@,9),Rarrow< 

GET (8,2)—(22,9),Blanké 

CIRCLE (15,4),7,1¢ 

PAINT (16,4), 1¢ 

GET (8,0)-(22,9),Ball< 

PUT (8,8),Ball< 

FOR j=@ TO 127:Wav%(3)=-127¢ 

Wav% (+128) =127:NEXTE 

FOR j=@ TO S:WAVE j,WavZ< 

NEXT< 

DATA 18,"round 1. equal scores."< 

DATA 2,2,2,2,2,2,2,2¢ 

DATA 49,"round 2. fibonachie seequence. “< 
DATA 1,2,3,5,8, 13,21, S4€ 

DATA 26,"round 3. arithmetic seequence. "<€ 
DATA 2,3,4,5,6, 7,8, 9¢ 

DATA 88,"round 4. seequence of squares. "<€ 
DATA 14,9, 16,25, 36,49, 64¢ 

FOR j=1 TO 4:READ Points(j,6)< 

READ Intros$(j)<€ 

FOR k=1 TO 8:READ x< 

Points (j, k+8) =x: Points (j,9-k) =x€ 

NEXT krNEXT j<¢ 

a=215:b=2¢ 

FOR ji=@ TO 4¢€ 

a=a—-39: beb+3Ge 

FOR k=@ TO j+3€ 

Xpos (j,k) =atk#h9< 

Ypos(j,k)=b¢ 

NEXT: NEXT< 

k=O¢ 

FOR j=7@ TQ 526 STEP 3a< 

Column (k) =7€ 

k=k+13NEXT€ 

k=B< 

FOR j=4 TG 154 STEP 16¢ 

Row (k)=j2k=k+12NEXT€ 

€ 

start:< 

SAY TRANSLATES("First player’s name?")< 
INPUT"Name of Player 1";pas¢ 

SAY TRANSLATES ("Second player’s name?")< 
INPUT"Name of Player 2";pis€ 

Whos (G@) =LEFT$ (pS, &) s Who$(1)=LEFTS(p1%, 6><€ 


text$=Who$(G)+" plays "+Who$(1)+". Is this correct" 


< 
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PRINT text$;:SAY TRANSLATES {text#)< 
INPUT query$:an$=LEFTS (query$,1)< 
IF LEN(ans OR an$="y" OR an$="Y" THEN Draws 
GQTO start<¢ 

< 

Draw: < 

SAY TRANSLATES (DK. ")<€ 

cLs< 

LOCATE 1,6:PRINT Who$(G)< 

LOCATE 1,44:PRINT Whos(td< 
%=4:FOR j=@ TO 1 *score boxes<¢ 
LINE (x, 12)—(x+118, 68) ,2,b¢” shadow< 
LINE (x+6, 16)-(x+126, 58) ,3, bf’ outline<e 
LINE (x+16, 14)—(x+118, 48) ,9,bf* insideé 
X=xX+48G62:NEXT <€ 

x=1:FOR 24 TO 58 STEP 3.7< 
LOCATE 2, 5:PRINT x€ 

x=x+12 NEXTE 

LINE (18G,6)-(182,49), ,bf< 

GET (189, 6)- (182,40), Piece< 

LINE (186,9)-(428,8)<¢ 

FOR j=218 TG 428 STEP 49<€ 

LINE (4,0)-(j+2,12),,bf€ 

PUT (§,48),Pieceé 

PUT (3,108),Pieceé 

NEXT<€ 

FOR j=188 TO 42@ STEP 49¢ 

PUT (j,9), Piece, OR€ 

PUT (j,78),Piece¢ 

PUT (j,126),Pieceé 

NEXT< 

PUT (128,126), Piece¢ 

PUT (15@, 199), Piece< 

PUT (459, 199) ,Pieceé 

PUT (486, 126),Piece< 

ERASE Piece “reclaim memory<¢ 

FOR 3=38 TO 578 STEP 39< 

LINE (3, 155)—(5+2,178),1,bf< 
NEXT€ 

LINE (176, 4)—(186,32),2,b¢¢€ 

LINE (416, 4)-(426,32) ,2,bF€ 

LINE (176, 32)~— (154, 42), 2¢ 

LINE STEP (8,9) -STEP (-18, 3) ,2¢ 
LINE STEP (9,9) -STEP (35,-32),2¢€ 
PAINT (175,32), 2€ 

LINE (426,32)-(446, 42) ,2€ 

LINE STEP (#, 9)-STEP (16,8), 2€ 
LINE STEP (@, 9) -STEP (-34, -32),2€ 
PAINT (427,32),2€ 

GET (136, 12)- (186, 69) ,Lefthunk<e 
GET (416, 12)- (456, 62) ,Righthunk< 
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121963 r=4442 k>42¢ 

FOR j=1 TO 4€ 

PUT (1,k),Lefthunk, OR€ 

PUT (r,k), Righthunk, OR€ 

Lal -3Srr =r 4+3Gs kekt+ SE 

NEXT< 

ERASE Lefthunk, Righthunk<¢ 

LINE (26, 153)~(36, 165), 2, b#< 
LINE (564, 153)—(574, 165) ,2,64¢€ 
GET (245, 32)—-(299, 49) , Swhlank< 
FOR j=@ TO 18¢€ 

LINE (276+j,40)—(288+4,32),3¢€ 
NEXT¢ 

LINE (245,39)-(280, 48) ,3,bf€ 
GET (245, 32)- (298, 48) ,Rewitch¢e 
PUT (184, 32), Swblank, ANDE 

FOR j=@ TO 28¢ 

LINE (184+j),32)-(193+5, 49), 3¢ 
NEXT¢€ 

LINE (193, 39)—(236, 48) ,3,bF< 
GET (184, 32)-(236, 40) ,Lawitché 
FOR m=@ TO 4:FOR n=@ TO mt3< 
sx=Xpos (m,n) ssy=Yposim,n) € 
wp=INT (RND(1) #2) < 

SW (m,n, @) =wp< 

SWim,n, 1) =¢ 

Who=i-Who:GOSUB Switch< 

NEXT niNEXT mé 

PUT (140,5),Larrowé 

RETURNG 

€ 
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Amiga Puzzle 


Bill Boegelein 


“Amiga Puzzle” provides you with an entertaining 

puzzle game thai pops up as a small window on the 

Workbench screen. But more importantly, it demon- 

strates some interesting and powerful programming 
techniques in Amiga BASIC. 


A popular game that used to keep kids occupied for hours in 
the back of the station wagon was known as the “slide puz- 
zle.” This was simply a plastic frame with 15 numbered or let- 
tered tiles arranged in a 4 X 4 pattern with one square left 
vacant. The object was to slide one tile at a time into the va- 
cant slot in an attempt to restore the puzzle to its proper nu- 
meric or alphabetic order. “Amiga Puzzle” is the Amiga 
BASIC equivalent of the slide puzzle. 

Amiga Puzzle works on any Amiga with Amiga Microsoft 
BASIC. To get started, run Amiga BASIC, enter Program 1 be- 
low, and save a copy on disk. Be sure to set Preferences for a 
60-column screen before running Amiga Puzzle. When you 
run the program, it pops open as a small window on the 
Workbench screen and scrambles the tiles. You can begin 
when the program announces “Ready” using the Amiga‘s 
built-in speech capability. 

To move a tile into the vacant slot, point to the tile with 
the mouse and press the left mouse button. If you try to cheat 
by moving a tile diagonally, the program will scold you. The 
gadget in the lower right corner of the window, normally re- 
served for window resizing, has been replaced with a plus 
sign (+) in Amiga Puzzle. Clicking on this gadget rescrambles 
the puzzle and starts a new game. The other gadgets (front/ 
back, the move bar, and close window) are all active as usual. 

As a final touch, the Puzzle window displays the elapsed 
time and number of moves since the start of the game. 


7 


CHAPTER TWO 


This photo shows two 

KINDOH i! copies of “Amiga Puzzle” 

i running simultaneously, an 
example of the Amiga's 
multitasking capabilities. 


TNT a2 


How It Works 
Amiga Puzzle was adapted from a similar puzzle game avail- 
able on the Macintosh. Those of you familiar with Microsoft 
BASIC 2.0 on the Macintosh will immediately see many simi- 
larities in Amiga BASIC. In fact,.many Macintosh BASIC pro- 
grams can be converted to Amiga BASIC with little effort. 
Both languages support windows, pull-down menus, labels, 
many types of graphics commands, and other features. 
Amiga Puzzle is divided into seven subroutines named 
Init, DrawScreen, Mix, Play, CheckCheat, More, and Done. 
There are also two small subprograms, Talk and Position. 
Here are descriptions of what these subroutines do: 


Init initializes variables and user-defined functions, and 
loads the puzzle’s characters A-O into the two-dimensional 
array c(). 

DrawScreen displays the puzzle’s squares and characters. 

Mix mixes only adjacent squares and keeps track of the 
blank square’s position in variables blankX and blanky. 

Play is the main subroutine where the current mouse po- 
sition is compared to coordinates of each square stored in the 
three-dimensional array rat. 

CheckCheat makes sure the attempted move is a legal 
one (adjacent squares only, no diagonal moves). 

More checks whether the mouse is clicked on the plus- 
sign gadget in Amiga Puzzle’s lower right corner. If so, the 
program starts a new game by jumping back to Start. 

Done ends the program and returns control to BASIC. 
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Special Features 

Most of the program is standard Microsoft BASIC. The only 
lines that merit special attention are the user-defined functions 
in the Init subroutine. One function operates the puzzle’s 
timer, and the other determines whether the puzzle has been 
solved. 

A quick way to time any event is to define a function that 
subtracts the current time from the initial starting time. This is 
done with the function FNlaps. The current time is obtained 
from TIMER and the initial time stored in the variable starttime. 

The other defined function, FNwin, determines whether 
the puzzle has been solved by comparing the letter in each 
tile—stored in the array c( }—with the characters A-O. Each 
letter in the correct position returns a value of —1 (true). So 
the puzzle has been solved when all 15 letters are sorted, re- 
turning a value of —15. 

A very powerful feature of Amiga BASIC is its subpro- 
gram capability. In effect, subprograms let you add new com- 
mands to the language. The word TALK is not a command in 
Amiga BASIC, but has been added to Amiga Puzzle as a sub- 
program. It lets you execute both a SAY command and the 
text-to-speech TRANSLATE$ function by simply typing TALK 
followed by the desired string. Similarly, POSITION is a sub- 
program that expects parameters of the x and y coordinates as 
the location to PRINT the desired string. 


Multitasking with BASIC 

Since multitasking is built into the Amiga’s operating system 
as a standard feature, no special programming techniques are 
required to write a BASIC program that’s capable of running 
simultaneously with other tasks. Feel free to move Amiga Puz- 
zle over or under other windows running different programs 
without causing interference. If your computer has at least 
512K RAM, you can even click on the Amiga Puzzle icon a 
second time and run two of the games at once. 


Amiga Puzzle 

The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt fo type the arrows themselves. 

€ 

Startr< 

GOSUB Enit¢ 
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GOSUB DrawScreen¢ 


BOSUB Mix< 

« 

WHILE WINDOW(7)< >0<€ 
GOSUB Play< 

WEND< 

€ 

Doner<é 

BEEP:WINDOW CLOSE 2:WINDOW 1¢ 
END< 

< 

Init:< 

DEFINT a-z¢ 

Talk "" «€ 


WINDOW CLOSE 1< 

WINDOW 2, “Puzzle”, (230, 435) — (2304138, 45+96) , 3H< 
trieas=S:RANDOMIZE TIMER< 

FOR ys@ TO 3¢ 

FOR x=@ TO 3¢ 

ctx, y) @x+yk44ASC ("A") “load chars ‘<¢ 

NEXT x<€ 

NEXT y<¢ 

blankX@ex-1:blankYey-1<¢ 

c(blankX, blankY) =ASC(" ")< 

DEF FNiaps!=( (TIMER-starttime!)\60)+(((TIMER-startt 
ime!) MOD 68) /100)< 

DEF FNa@ Ce (8,0) 265) +1 (1, 0) 66) -+(C (2,8) 867) +(C(3, 8) 
=68)< 

DEF FNb=@(c (8,1) 69) + (061, 1) 78) (cl2yLoe7L (co (3,1) 
m72)< 

DEF FNc@(c (8, 2)273) +c (1,2) 274) + (c(2,2)975) + (0 (3,2) 
=76)< 

DEF FNd= (co (8,35) =77) + (0 (1,3) 78) + (co (2, 35) 79) +c (3,3) 
=BO)< 

DEF FNwin= (FNa+FNb+FNe+FNd) ‘won if = -15'¢ 
RETURN€ 

€ 

DrawScreen:< 

FOR y=@ TO 3¢ 

FOR x= TO 3¢ 

Position (x+1) 83, (y+1) #2, CHRS(c (x,y) > *print char 
s‘€ 

X1™x 394192 yleys16+5 "draw boxes ‘<¢ 

LINE txt, yl)—(xt+30, yi+18),1,b¢ 

CLINE (x1-1,y1-1)-(x14+3G+1, y1+10+1),1,b¢ 

LINE (19-S, 3-3) —(4836+16+5, 4818+3+3) ,1,b¢ 

mor eX=128: mor eY¥=89< 

LINE (moreX,moreY)~(moreXxti@, moreY+19),1,bf < 


Position 14,11,°+" "new game gadget ‘< 
rat(x,y, 8) sxirrat (x,y, 1) sy1¢ 

NEXT x€ 
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NEXT yé 

Position 3,16,°TIME 2.90" < 

Position 3,11,"TRIES 3°< 

RETURNE 

€ 

Mixre 

x=blankX: y=bl ankY< 

FOR mixing=333 TO 1 STEP -1 < 

IF (mixing AND 1)=8 THEN€ 
X@INT(RNDS4) sy=blankY *evan‘< 

ELSE < 

y=INT(RND&4)sx=blankXx ’odd‘< 

END IF< 

GOSUB CheckCheat< 

NEXT mixing< 

Talk “Ready."< 

starttime!=TIMER< 

RETURN< 

€ 

Play:< 

LOCATE 18,8:PRINT USING "#8. 48"; FNlaps 
WHILE MGUSE(2)<>8< 

mouseX=MOUSE (3) = mouseY=MOUSE (4) < 

FOR y=@ TO 3<¢ 

FOR x=@ TO 3<¢ 

IF {(mouseX>rat (x,y,@) AND mouseX<rat (x,y,8)+38) AND 
(mousey >rat (x,y,1) AND mouseY<rat (x,y,1)+18) THEN G 
QSUB CheckCheat : RETURN< 

NEXT x€ 

NEXT y¢ 

GOSUB More< 

WEND< 

RETURNE€ 

€ 

CheckCheat:< 

IF (ABS (x-blankX)>1 GR ABS(y-blankY)>1) OR (ix<>bla 
nkX AND y<>blankY)) THEN€ 

IF mixing=@ THEN Talk “Cheater. "cheating ‘< 
ELSE *not cheating *< 
SWAP c(x,y),c (blankX, blankY)< 

Position (x+1)83, (yti) 82, CHRic(x,y)< 

SWAP x, blankX:SWAP y,blankY< 

Position (x+1)83, (yti) 82, CHR lc (x,y) I< 

END IF€ 

IF mixing=@ THEN< 

tries=triasti< 

LOCATE 11, 8:PRINT tries;< 

WHILE MOUSE (@)<>@:WEND< 

If FNwin=-15 THEN Talk “We have a winner.":GOTO Mor 
ae¢ 
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END IF<¢ 

RETURNE 

€< 

More:< 

WHILE MOUSE(@)<>@ OR FNwin=-1S *another gama? <‘< 
mouseX=MOUSE (3) : mouse Y=MOUSE (4) < 

IF MOUSE(@)=@ AND (mouseX>moreX AND mouseX<moreXx+19 
) AND (mouseY>moreaY AND mouseY¥<moreY+1@) THEN GOTO 
Start< 

IF WINDOW(7}=@ THEN Done< 

WEND< 

RETURNE€ 

< 


SUB Talk(a$) STATIC< 

SAY TRANSLATES (aS) < 

END SUB< 

< 

SUB Position(x,y,a8) STATICE 
LOCATE y,x:PRINT a$;< 

—ND SUB< 

< 


€« 
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Hex War 


Todd Heimarck 
Translation by Philip I. Nelson 


You float high above a distant planet, controlling 
robot armies below. Can you take control of the 
priceless mining turf planetside, or will your oppo- 
nent’s robot crews prevail? To win at this thought- 
fully designed, engaging strategy game, you'll need 
foresight and conceptual skills rather than a quick 
hand on the joystick. Requires 512K memory and 
features synthesized speech. 


“Hex War’ is a two-player strategy game that can be played 
five different ways, and there are limitless variations, But the 
basic premise is always the same: You and an opponent move 
armies on a field of hexagons, attempting to capture territory. 

The goal of the first two games is simple: capture the cap- 
ital city of the other player. In game 1, the capital cities are far 
apart; you must devote some of your armies to defending your 
own capital while attempting to breach the walls of the other 
capital. Game 2 puts the capitals near each other, so offense 
and defense tend to merge in this scenario. Most of the action 
takes place within a small area of the battlefield. 

Games 3 and 4 spread the action over a wider area. In the 
third game, your object is to occupy 8 of the 12 cities on the 
game board. Six cities occupy the periphery, and 6 are in the 
center of the playing field. Game 4 requires actual control of 6 
cities; you must have an army in the city, one that’s not in- 
volved in a battle, before you're credited with control (this 
version will probably take the most amount of time to play). 

Although the first four scenarios encourage a commitment 
to battle, you employ different tactics in the fifth. The goal 
here is to acquire 40 of the 61 hexes, so you need some free 
armies to move around. As soon as you claim 40 hexes, you 
win the game. 
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Typing It In 

Hex War is written in Amiga BASIC, with some important 
information in DATA statements. Type in the program and be 
sure to save a copy. Before running the program set the screen 
to 80 columns by clicking on the Preferences icon and setting 
the proper width. After the game has been saved, and the col- 
umn width set, select Start from the Run menu. 

When you first run Hex War, the computer pauses to set 
up the screen, then displays a menu of five choices, The five 
different games are explained in detail below. If you're new to 
the game, press the 1 key to choose game 1. There will be an- 
other short pause while the variables are initialized, and then 
you'll see a playing field with 61 hex shapes, containing four 
armies on each side. 


Hexes and Hexadecimal 

A chess board has 64 squares arranged in a rectilinear grid. 
Hex War gives you a playing field of 61 hexagons (almost as 
many spaces as a chess board), but they’re part of a six-sided 
honeycomb field. If you've played war games before, you may 
recognize the hexes. 

Press the cursor-up key to go northeast, the cursor-right 
key to go southeast, the cursor-down key to go southwest, and 
the cursor-left key to go northwest. At first, the cursor move- 
ment may seem unusual. If you can turn the keyboard 45 de- 
grees in a clockwise direction, these directions will seem more 
natural. 

Use the space bar to select or set an army. Press ESC to 
end your turn before all your armies have been moved. A 
player indicator appears in the lower right corner to indicate 
which player has the current turn. 

Each hex has six neighbors, so an army can move in six 
possible directions. To travel left and right, you'll have to 
press two cursor keys (for example, up and right cursor keys 
to move one hex to the right, which counts as one movement). 

Army strengths are listed in hexadecimal (base 16} num- 
bers, so the four armies labeled 40 actually have strengths of 
64 (the hexadecimal value 40 equals 64 in our everyday deci- 
mal numbering system). At the beginning of a turn, any army 
has exactly three movement points. It requires one point to 
move an army into a neutral or enemy-controlled zone. To 
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move through the same zone also requires a point. To move 
into and through a friendly hex requires a total of one point. 
This means you can move a single army through two neutral 
or enemy hexes in any one turn, but the same army can move 
through up to three friendly zones during a turn. 

Select an army by moving the cursor onto it. Press the 
space bar once; then position the cursor on a neighboring hex 
and press the space bar again. If you wish to stop, press the 
space bar again, and two plus signs (+ +) will appear, signal- 
ing that no more movement can occur. Otherwise, position the 
cursor on another neighboring hex and press the space bar. 


Zones of Control 

Each army controls the six contiguous hexes surrounding its 
resident hex. If you enter an enemy’s zone of control, you for- 
feit any additional moves and must prepare for battle. In addi- 
tion, an army that begins the turn in a zone of control cannot 
move until the battle is resolved. 


Robots vs. Robots 

In this game, you aren’t really on the planet, but are parked 
high above it in a remote mothership. You've landed some ro- 
bots to explore the area, and they’ve encountered robots be- 
longing to another explorer. Your robots, or bots, as you call 
them, follow your orders to advance toward the other bots. 
Hach bot has a mining laser which can stop or disable the 
other bots. Also, your bots have disrupter beams which can 
daze another bot, temporarily confusing it. When two bot- 
groups come close to each other, they shoot lasers and dis- 
rupters until one army of bots is disabled. 

Three things can happen to a robot which suffers a hit. If 
the robot suffers a direct hit by a laser in its logic unit, it is va- 
porized. It is destroyed forever and never reappears in play. 

The second thing that can happen is injury. If the laser 
beam is deflected, the robot is out of commission until it can 
be transported back to a botspital. An injured bot is frozen in 
place until the battle is finished, after which the victorious 
army carts away the injured bots to be repaired and reused. 

Thus, winning a battle means you evacuate both the 
friendly injured and the enemy injured. After all of the injured 
bots recover, they join the force in whose botspital they were 
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healed. In effect, injured bots eventually become members of 
the army which won the battle in which they were damaged. 

The third possibility is confusion: The robot is temporarily 
disoriented for two turns. When the time has passed, the robot 
is ready again. 


Reprogramming Bots 

Moving the cursor onto an army of robots brings up a status 
window in the upper left corner of the screen. The number in 
reverse video is unimportant; it’s the army number (which 
may change as the game progresses). 

The four numbers underneath are significant, however. 
The first is the army’s active strength (in decimal). The second 
is the number of injured robots, which will be transported to 
the botspital of whichever side wins the battle. The third—on 
the line below—is the number of disrupted robots that will be 
available for combat in the next turn. The fourth number is 
the number of robots that can join the active force two turns 
from now. 

If one side is able to reduce the other player's active force 
to zero, two things will happen. The winner sends all injured 
bots away to be repaired. The winning side also collects all en- 
emy bots (injured or dazed) and sends them to the reinforce- 
ment center to be reprogrammed. Eventually, all these bots 
will be available to the winner of this particular battle for fu- 
ture engagements. 


Reinforcements and Mergers 

At the start of the game, you'll see some armies positioned 
outside the hex field. These are reinforcements and reserves in 
transit to the battle. Player 1’s reinforcements enter at the bot- 
tom right corner; player 2’s enter at the top left. The line of 
new armies moves counterclockwise; the army next to the en- 
try point is the next to enter the battlefield. 

However, the reinforcemenis cannot enter the battlefield 
if an army (friendly or enemy) is blocking their way. Keep 
your armies off your own reinforcement point, and try to 
block your opponent’s armies from this area if you can. If the 
entry hex is owned, but not occupied, by your opponent, 
you'll lose some reinforcements. 

After completing a turn, you're credited with additional 


106 


c 


eros ace eas 


[- 


Education 


reinforcements according to how much territory you own. 
Passing over a hex allows you to claim it; the hex changes 
color to indicate ownership. Each piece of property provides 
enough ore and energy to build a new robot, available for use 
two turns in the future. The numbers in the line of reinforce- 
ments are updated after you move to show additional robots 
being built. 

Winning a battle also provides additional armies in the 
line of reinforcements. As mentioned above, a victorious army 
captures any dazed enemy bots, which are reprogrammed and 
available in three turns, At the same time, the winner evacuates 
injured bots of both sides. Transportation and repair take five 
turns for friendly bots, seven for enemy bots. The two additional 
turns are needed for reprogramming the opponent's forces. 

If you're losing a battle, the number of injured robots (dis- 
played in the status window) will begin to rise. Remember 
that if your opponent reduces your active strength to zero, he 
or she will capture all of your injured bots; they‘ll be repro- 

ammed and added to future reinforcements. To prevent this 
irom happening, you're allowed to bring in a second army for 
merging. Simply move another army on top of the army with 
which you want to merge. There’s just one rule: One or both 
of the armies must have a strength less than 32 decimal (less 
than 20 hex). 


Turning Speech On and Off 

Hex War includes synthesized speech to emphasize various 
events and provide information during the game. For instance, 
when you select an army, the computer tells you the number 
(in decimal) of robots in that army. If you're not familiar with 
hexadecimal numbers, this feature can help you learn hex 
notation. 

Either player can turn the speech off or on at any time. 
Simply click the mouse button twice: A small window appears 
and the computer announces the current voice status. If 
speech was previously activated, it now shuts off, and vice 
versa. Click the mouse button once to erase the window and 
resume play. A similar window appears to announce the out- 
come at the end of each game. 
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Hex War 


The left-arrow symbols in this listing indicate when to press RETURN at the end of each 


program tine. Do not attempt to type the arrows themselves. 


* Hex War for 512K Amigaé 
< 

CLEAR ,25980< 

CLEAR , 45536&< 

< 

Restart: <€ 

GOSUB Setup< 

€ 

mainloop:€ 

GOSUB Reveille< 

GOSUB DrawField< 

GOSUB PlaceTroops€ 

GOSUB TakeTurné 

CLS: talk$="Thinking"<€ 
LOCATE 12,17:PRINT talks<¢ 
GOSUB talk<¢ 

GOSUB Battle< 

6OSUB 
GosuB 
GOSUB Prisoners<¢ 

GOSUB Reinforcements<¢ 

GOSUB Outcome< 

pn=1-pn: ft=8: pp=d< 

GOTO mainloop<é 

€ 

DrawField:< 

CLS€ 

FOR r=11 TO 1 STEP —2<¢ 

FOR c=12-r TO r+26 STEP 4¢€ 

PUT (c*8,r#8) ,s16< 

NEXT cyr€ 

FOR r=13 TO 21 STEP 2¢ 

FOR r-19 TO 49-r STEP 4¢ 

PUT (c88,r%#8),516¢ 

NEXT c,ré 

FOR r=12 TO 1 STEP -2¢ 

FOR c=14-r TO r+28 STEP r+28-(14-r)—-1¢€ 
LOCATE r,cé 

PRINT CHRS(32)< 

NEXT cyr€ 

FOR r=13 TO 21 STEP 2€ 

FOR c=r-11 TO SS-r STEP 53-r—-(r-11}-1¢ 
LOCATE r,cé 

PRINT CHR$(32)< 

NEXT cyr€ 

FOR j=2 TO 23 STEP 21¢ 

LOCATE 4,12< 
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fom 
a PRINT SPACES(19)< 
ve NEXT€ 

FOR j=1 TO 12€ 
—_ GOSUB 719¢€ 
hit NEXT€ 

j=1<¢ 

IF gn=1 THEN GOSUB 718: j=2:GOSUB 715< 
im IF gn=2 THEN GOSUB 718: j=3:GO0SUB 715¢ 


ey LOCATE 1,t€ 
WHILE INKEY$<>"°:WEND< 
RETURNE 
71M k=cit(i,B€ 
Lecit li, L< 
X= (K=E) H2+19€ 
y=(12—Ck +1) ) #2+3€ 
PUT (x88+3, yX8+3) ,52,PSET¢ 
RETURNE 
TIS k=cit(j,O€ 
Tscit(j,1€ 
Me CK-1) BZE19E 
Y= C12~ (KFT) ) #243€ 
PUT (x#8, y88),s3,PSET< 
RETURNG 
718 kacit(4,O)< 
lscit(i,1€ 
RECKM1L)B2F1LFE 
Y= C12- (k+l) ) 8243€ 
PUT (¢88, y#8),54,PSETE 
RETURN€ 
< 
TakeTurn:<€ 
IF nx (pn)<2 THEN RETURNE 
ht=4:hb=4:GOSUB 1999< 
819 mv=9: 
cb=8:p! 
FOR j=1 TO nx (pn)-1¢ 
_ IF army(j,9,pn) > AND army(i,6,pn)<1 THEN€ 
ns k=1€ 
3=nx (pn)-1¢ 
£ND IF< 
am NEXT 5¢€ 
IF k=@ THEN RETURN€ 
CheckIt:¢ 
IF a$=CHRS$(27) THEN a$="":RETURNE 
ReadMouse: < 
IF MOUSE (@)<>2 THEN NoFlag¢ 
” left button clicked twiceé 
= WINDOW 4, "Speech", (65, 79) -(225, 118), 16, 1¢ 
ay IF TalkFiag=1 THEN€ 
talks="Now I can talk."<€ 
PRINT talk#< 
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TalkFlag=1-Tal kFlag<é 

GOSUB talk< 

GOTO ClearMouse<¢ 

END IF< 

IF FalkFlag=8 THEN<¢ 

talkS="0K, 1°11 be quiet."< 

PRINT tal ks€ 

GOSUB talk< 

Tal kFl ag=1-Tal kFlag< 

END IF€é 

ClearMouse:<¢ 

WHILE MOUSE (@) <>@:WEND€ 

PRINT “Press button once"< 

PRINT “to continue... "<€ 

7 wait for ome clické 

WHILE MOUSE (9)<>1:WEND< 

* purge keyboard, tao< 

WHILE INKEY$<>"":WEND< 

WINDOW CLOSE 4¢€ 

NoFl ag: € 

qv=@; aS=INKEYS: IF a$="" THEN ReadMouse< 
IF UCASES(a$)="Q" THEN< 

GetOut:< 

WINDOW CLOSE 3< 

SCREEN CLOSE t< 

WINDOW 1,"Hex War", ,31,-1¢€ 

WINDOW OUTPUT 1< 

CLEAR ,25989< 

END< 

END IF€ 

IF a$=CHR$(30) THEN qv=3:680TO Codeit< 
THEN qv=7:G0TG Codeit< 
THEN gv=1:GO0TO Codeit< 
THEN qv=5< 


"ye 
IF j=6 THEN CheckIt< 

IF (3 AND 128) THEN 1199¢ 

IF (3 AND 1)= THEN CheckIt< 

§= (5-1) /2€ 

IF j AND 1 THEN bi=hb+j-2:tisht ELSE tisht+i—jzbi=h 
be 

If ti<@ OR t1>8 THEN CheckIt< 

IF b1<@ OR b1>8 THEN CheckIté 

sistitbi:IF $1¢4 OR s1>12 THEN Checkit< 
hb=bizht=t1:G0SUB 1999¢ 

LOCATE t,1¢ 

FOR z=1 TO 4 

PRINT SPACES (8) < 

NEXT€ 

qn=map tht, hb, 6) < 
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IF qn=@ THEN LOCATE 1,1:G0TG CheckIt ELSE qi=map (ht 
ahb, 1)~1€ 

LOCATE 1,1¢€ 

PRINT USING "####" 3 qn:PRINT*———-—-"<€ 
FOR j=8 TO 3< 

PRINT USING “####"5 army (qr, j,qld< 
NEXT< 

LOCATE 1,1¢€ 

GOTO Checkit<€ 

< 

1999 sx=146+168 (ht-hb)< 
Sy=218-148 (ht +hb) < 

IF map (ht,hb,2)=1 THEN€ 

PUT (ox,oy),s8¢ 

PUT (sx, sy) ,S7€ 

Ox=sx 1 oy=sy< 

pp=1¢ 

RETURN€ 

END IF< 

IF pp THEN€ 

PUT (ox, oy) ,s7€ 

PUT (sx, sy) ,sB8€ 

xs Oy=sye 


RETURNE 

END IF€ 

IF ft THEN€ 

PUT (ox,oy), 58 

PUT (sx, sy), s8¢ 

ox=sx say=sy€ 

RETURNE 

END IF€ 

PUT (sx, sy), s8¢ 

Ox=sxs Oy=sy: ft=1€ 

RETURNE€ 

€ 

1199 IF pk=i THEN 126@< 

IF map (ht,hb,1)<>pn+! OR map (ht,hb,9)=@ THEN S1g< 
an=map (ht, hb, ) < 

IF army(an,6,pn)<>@ THEN S19< 

pk=tsetsht: cb=hb¢ 

cs=army(an,@,pn):SQUND 1129, 19< 

tal k$=STRS$ (cs) +CHRS (32) +“roahbohts.":GOSUB talk<é 
GOTO CheckIt¢ 

<€ 

1299 j=(ht=ct) AND (hb=cb)< 

IF j AND mv= THEN 818< 

IF j AND mv>@ THEN 1429<¢ 

ax=army (map (ht, hb, 9), 8, pn) < 

IF (ax>me AND cs>me) OR (map(ht,hb,1)—1=1-pn AND ax 
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>@) THEN Checkit<¢ 

dt=ABS (ct-htd<€ 

db=ABS (ch—-hb) < 

tl=db+dt<€ 

IF NOT (tl=1 OR (cttcb=ht+hb AND dt=1)) THEN CheckI 
te 

mng=map (ht, hb, G)< 

THEN 1389¢€ 

TO 3< 

army (mg, i, pn) =army (mg, 3, pn) tarmy (an, j,pnd< 
army (an, i, pn) =3€ 

NEXT< 

army (mg, 6,pn)=1< 

map (ct, cb, 5) =84 

cs=army (mg,@, pn) < 

an=ng: mv=mmt1< 

BOTO 1388< 

< 

13@@ nB=map (ht, hb, 1)-1< 

my=mv+1< 

IF n8<>pn THEN mv=mv+1< 

map (ct, cb, @)=9¢ 

map (ht, hb, 8) =an€ 

map (ht, hb, 1)=pnt1€ 

army (an, 4, pn) =ht€ 

army (an, 5, pn) =hbé 

IF mv>=mm THEN army{an,&,pn)=1€ 
k=8¢ 

FOR 1 TO 1 STEP 2¢€ 

gt=ht+3: j2-hb+js jS=hb—-j< 

IF j1<@ OR j1>8 THEN 1349< 

IF map (ji,hb,@)>@ THEN€ 

IF map(ji,hb,1)=2-pn THEN< 
k=1sj=1:GOTO 1349¢ 

END IF< 

END IF< 

1348 IF j2<@ OR §2>8 THEN 135@¢ 

IF map tht, j2,9)>@ THEN€ 

IF map (ht, j2,1)=2-pn THEN€ 
k=1:j=1:GOTO 1349¢ 

END IF€ 

END IF<€ 

1359 IF 3#3<@ OR j3>8 OR 31<@ OR ji>@ THEN 1369< 
IF map(il,j3,9)>@ THEN€ 

IF map(ji,j3,1)}=2-pn THEN k=1: j=1¢ 
END IF€ 

1368 NEXT j€ 

IF k=1 THEN army (an,6,pn)=1:mv=mmt1<€ 
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es GOSUB 183¢< 

ai j=sht:k=hb< 

c=cs:d=army (an,,pn)< 

GOSUB 183¢< 

et=ht:cb=hb¢e 

IF mv<mm THEN CheckIit< 

1426 army(an,4,pn)=1< 

J=ht:k=hb¢ 

in c=csid=1<¢ 

GOSUB 183¢< 

GOTO B1d<¢ 

© 

€ 

1569 RESTORE Strengths<¢ 

FOR j=@ TO 1€ 

nx (j) s5<¢ 

FOR k=1 TO 4€ 

READ a,b,c¢ 

army (k,@, j)=a¢ 

army (k,4, j)=b€ 

army (k,5, jd=c€ 

map (b,c, 9)=ké 

map (b,c, 1) sj+1é€ 

NEXT ky j¢ 

Strengths: € 

DATA 64, 2,8, 64,3, 7, 64,5, 6,64, 6, 6€ 

DATA 64,2,2,64, 3,2, 64,5, 1,64, 6, 5€ 

FOR j= TO 1€ 

FOR k= TO 26¢ 

a=INT (RND(1) &k#3) € 

FOR 1=1 TO S€ 

a=atINT (RND(1)*21-8)€ 

NEXT 1<¢€ 

IF a<16é THEN a=@ ELSE a=(a+k%#8) AND 254¢ 

fatk, j)sae 

NEXT ky J€ 

RETURNE€ 

Wy al < 

PlaceTroops:< 

FOR j= TO 8¢ 

FOR k=@ TO 8¢ 

a=map (j,k, 1)€ 

IF a THEN a=a-1:60SUB 18a0¢€ 

NEXT k, J€ 

FOR a=@ TO 1<¢ 

e=l3+taki2: 

dx=2-48a; 

Fal FOR j=@ TO 8<¢ 

iy c=fq(j,a):GOSUB 184g< 
eretdx k2e 
IF j>3 THEN f=f4dx:e=e-dx< 
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NEXT j,a€ 

IF pn THEN 

PUT (288, 168) ,S5,PSETS 
ELSES 

PUT (288,16@),56,PSET€ 

END IFé 

RETURNE 

€ 

1890 b=map (5,k,B< 

cHarmy (b,9,a)< 
d=army (b, 6,a)€ 

1830 |= ( j-k+19)42-1¢ 
F=(13—j-k) E241€ 

1849 IF a THENS 

PUT (exa+1, £498) ,55,PSET< 
LOCATE ftati,eti< 

PRINT SPACES (2) ;¢ 

GOTO 1858¢ 

END IF< 

PUT (esti, (£+1) £8) ,56,PSETE 
LOCATE f+ati,etl< 

PRINT SPACES (2)5< 

1859 IF c= THEN RETURN 
LOCATE ftatl, eric 

PRINT RIGHTS ("G"+HEXS (c) ,2)5< 
IF d AND a=@ THEN 

LOCATE #+2,e+1< 

PRINT SPACE$(2)3< 

PUT (ee6+1, (+1) 88+1),s11< 
RETURNS 

END IF< 

IF d AND a=1 THEN< 

LOCATE f+1l,erl<e 

PRINT SPACE$(2)3< 

PUT (ekB+1, £9841), 59 

END IF€ : 

RETURN< 

€< 

Reveille:€ 

sw=0: e=nx (pn) -1¢€ 

IF e<i THEN RETURN 

FOR j=1 TO e-1¢ 

IF army (j,9,pn)>=1 THEN 1979¢ 
t=army (5,4,pn)€ 
bearmy(3,5,pn)¢ 

IF map(t,6,6)=j THEN map (t,b,9)=9€ 
FOR k=j TO e¢ 

FOR 1=8 TO 6¢ 

army (k,1,pn)=army (k+1,1,pn)< 
army (k+1,1,pn)=S¢ 

NEXT 1¢ 
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t=army (k,4,pn)€ 
b=army (k,5, pn) € 

map {t,b, 8)=ké€ 

NEXT ké€ 

Ax (PN) =nx (pn) -1€ 
jee: sw=ié 

197@ NEXT i 

IF sw THEN Reveille 
FOR j=1 TO e€ 


army (3,9, pn) =army(5,8,pn) tarmy (5,2,pn)€ 


army (5,2, pn) =army(j,3,pn) € 
army (4,3, pn) =8€ 

army (5,6, pn) =< 

NEXT j¢€ 

k=nx (1-pn)< 

FOR j=! TO k¢ 

army (j, 6, 1-pn) =0€ 

NEXT€ 

GOSUB 249¢¢ 

2650 IF bp>® THEN< 

FOR i=®@ TO 1€ 

FOR k=1 TO bp< 
aRBTIL (k, 5, 9)€ 

army (a, 6, j)=army (a, 6, j)+1€ 
NEXT< 

NEXT< 

END IF€ 

RETURN€ 

< 

Battle:<¢ 

GOSUB 24a9¢ 

a=nx (D)d€ 

IF nx (t)>a THEN a=nx (1)<€ 
FOR j=8 TO 1¢€ 

FOR k=1 TO a¢ 
army (k, 4, j)=8¢ 

NEXT k,i¢ 

GOSUB 2959¢ 

RETURNE€ 

€ 

Prisoners: <€ 

FOR j=@ TO 1¢ 

a=1-j€ 

b=nx (9) -1¢€ 

FOR k=1 TO be 

IF army (k,@,4)>=1 THEN 2289¢ 


¥q(2,a)="q(2, a) +aray (k, 2, 4) tarmy (k,3,i)€ 


IF fq(2,a)>255 THENE€ 
e=fq (2, a) ~255¢< 

fy (3, a) =Fq (3, ad tc€ 
£q(2,a) =255¢ 
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END IF€ 

¥q (6, a) =fq(&, a) tarmy (ky 1,5) 
IF #q(6,a)>255 THENE 
c=fq (6, a)~255¢ 
Fq{7,a)=fq(7,a) tc€ 

£4 (4, a) =255¢€ 

END IF< 


IF map (army (k,4, 3), army (k,5,4),@)=k AND map (army (k, 


4,3), army (k,5,3),2)#5+1 THEN€ 
map (army (k, 4,3), army (k,5, i) ,9)=8¢ 
END IF€ 

FOR 1=9 TO 6¢€ 

army (k,1, 3) =@€ 

NEXT¢ 

2280 IF army(k,6,j)>=1 THEN 2329¢ 
£q(4, j)=Fq (4, §)tarmy (ky 1, 5)€ 
army (k,1, 5) =8€ 

IF #q(4, 5) >25S THENS 
c=Fq (4, j)-255¢ 

£qQ (5, J) =Fq (5, J) tc€ 

fq (4, j)=255¢ 

END IF< 

2328 NEXT k, i€ 

RETURNE 

€< 

2498 bp=0¢ 

FOR j=@ TO B¢ 
G1=(j-4) k(4- JO € 

J2Z=B- (54) (4-3) € 

FOR k=jl TO j2€ 

a=map (i,k, )< 

r=map(i,k,1)€ 

IF a=@ OR r= THEN 2490¢ 

IF army(a,0,r-1)<1 THEN 2499¢ 
taste 

GOSUB 2509¢ 

1: GOSUB 2509< 

-1: GOSUB 2508¢ 

2498 NEXT k, j€ 

RETURNE 

€ 

2500 IF t<O OR b<@ OR t>8 OR b>B THEN RETURNE 
pa=map (t,b,5)€ 

IF pa=O THEN RETURN 

IF map(t,b,1)=r THEN RETURN 
IF army (pa,9,2-r)<1 THEN RETURN 
bp=bp+1< 

BTL (bp, r~1, 0) =a 

BTL (bp, 2-7, @) =pac 

RETURN€ 

€ 
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Resolve: ¢ 
IF b THEN RETURNS 
FOR TO bpe 
FOR TO 1¢ 


ke 

an=BTL(5,k, G)€ 

ax=army (an, @,k) € 

ht=army (an, 6, kd 

CtsINT (ax /ht) +1 

BIL (j,a, L)=INT (ctrkat1< 

BTL (Gj, a, 2)#INT (ct #kb+1)< 

BTL (i, a,3)=INT (cttke+1)€ 

NEXT k, 3¢ 

FOR j=1 TO bp< 

IG=BTL (5,8, 

GI=BTL (5,1, B€ 

GOSUB 3199< 

army (38,9, 9) =army (56,6, )—atBTL (5,9, 1)€ 
army (j1, 8,1) sarmy (31,9, 1)-b#BTL(5,1,1)¢ 


BOSUB 3189¢ 
c=akBTL (5,68, 20€ 
army (56,8, ) =army (j8,9,0)—c€ 


army (39, 1,9) =army( j6,1,0)+c¢ 
CHbRBTL (5,1, 20¢ 

army (i1,, 1) =army (31,9, 1)-cé 
army (j1,2,1)=army (51,1, 1)4c¢ 
GOSUB 319g< 

c=a8BTL. (5,5, 3)< 

army (439, %,G) =army (59, 8, 8) -cé 
army (56, 3,8) -army (36, 3,8) +c€ 
cCobaBTl (5,1, 39¢ 

army (31,@, 1)=army (51,9, 1)-c< 
army (j1,3,1)=army(j1,3, 1) +c€ 
NEXT j¢ 

RETURN€ 

€ 

Reinforcements: € 

a=t-pn:b=¢ 

FOR j=@ TO 8:FOR k=9 TO 8¢ 
IF map (i,k,1)=pn+1 THEN bob+lé 
NEXT k,i¢ 
#q(1,pn)=fqt1,pn) +bé 

IF fq(i,pn)>255 THEN< 
b=fq(i, pn) -255< 

¥q(2, pn) =fq(2,pn) +bé 

#4 (1, 9n) =255¢ 

END IF< 

t=4:b=pnsge 

IF map(t,b,6)<>@ THEN RETURN 
IF map(t,b,1)=pn+1 THEN€ 
£q(G,a)=G: fq (i, a) =< 
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GOTO 3a40< 

END IF< 

janx (a)€ 

IF 3>31 THEN RETURN 
jl=fq (9, are 

IF j1<1 THEN 394B< 
nx (a) snx (a) +1€ 

map (t,b,)=i¢ 

map (t,b, 1)=at1<€ 

army (3,9, a)=j14 

FOR k=1 TO 3€ 

aray (5,k,a)=B¢ 

NEXT ké 

army (j,4,a)=t¢ 

army (3,5, a) =b€ 

3868 FOR k=9. TO 19¢ 
£q(k, ad =fg (k+l, are 
NEXT ké€ 

£q (20, a) =¢€ 

RETURNE 

< 

3100 a=O:FOR m=1 TO 6¢ 
IF RND(1)<.5 THEN a=ati¢ 
NEXT m:b=6-a¢ 
RETURN 

< 


3268 talk$="press i through S te choose seenaireeo. 


me 
GOSUB talk<é 


WINDOW 4, "Scenario: Press 1-5", (65, 7)—(255,129),16 


21€ 

PRINT "1> Capture capital/far"“<€ 
PRINT Capture capital/near*< 
PRINT Qccupy 8/12 cities"< 
PRINT Control 6/12 cities"< 
PRINT "S> Qecupy 40/61 hexes"< 
GrabKey: < 

aS=INKEY$:IF as="" THEN GrabKey< 
Qn=VAL (a$)< 

IF gn<i OR gn>S THEN GrabKkey< 
WINDOW CLOSE 4¢ 

talk$="seenai reeo"+STR$ (gn) +CHR$ (44) :GOSUB talk<¢ 
RETURNE 

<€ 

Gutcome:<€ 

a=9:0N gn GOSUB 3436, 3459, 3486, 3499, S58s< 
IF a=@ THEN RETURNE€ 

ens=c$: ea=ac 

GOSUB DrawField< 

GOSUB PlaceTroops¢ 

ateaté 
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WINDOW 4, “Qutcome", (25, 7G) ~(39B, 126), 16,1¢€ 
PRINT “Player "a" wins"< 

MaybeQut:< 

PRINT cs<€ 

PRINT "Press @ to quit, RETURN to play. “< 

asered 

WHILE ag="%¢€ 

a$=INKEYS¢€ 

WEND< 

WINDOW CLOSE 4< 

IF UCASES (as) 
WINDOW CLOSE 
CLEAR , 25680¢ 

RUNE 

< 

3439 IF map (citi2,G),cit(2,2),1)=1 THEN 
a=2<e 

cé="Red captured the capital "< 

GOSUB Announce< 

RETURNE 

END IF€ 

GOTO 346B¢ 

€ 
3459 IF mapicit (3,6),cit(3,1),1)=1 THEN 
a=2Ze 

c$="Red captured the capital "< 

GOSUB Announce< 

RETURNE 

END IF€ 


THEN GetOut< 
INDGW CLOSE 1< 


€ 
3469 IF map(cit (1,6),cit(1,1),1}=2 THEN< 
€ 


c$="Yellow captured the capital“<€ 
GCSUB Announce< 

RETURNS 

END IF€ 

RETURNE 

< 

3486 1=8:GOTO 3599< 

3499 1=6< 

3568 c()=92c(2) =< 

FOR j=1 TO i2:t=cit(j,@)sb=citti,1€ 
rsmap (tb, t)ic (racer tie 

IF gn=4 THEN< 

an=map (t,b,8)< 

IF r>@ THEN IF an=@ OR army(an,&,r-1)>@ THEN c(r)=c 
frd-1¢ 

END IF< 

NEXT i<€ 

IF c(1)=>1 THEN€ 

a=2¢ 
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c%="Red captured"+STRS(c(1))+" cities"€ 


\ 
GOSUB Announceé Le 
RETURNE 
END IF< 
IF ¢(2)=>1 THENE€ u 
a=t€ 


c$="Yellow captured"+STR$(c(2))+" cities"< 
GOSUB Announce< 

END IF€ 

RETURNE 

< 

3589 ¢(1)=O20(2)=8€ 

FOR j=@ TO 8:FOR k=8 TO 8¢ 

r=map (j,k, )2c(r)sclrd+i€ 

NEXT k, J€ 

IF c(1)=>4@ THEN€ 

a=2zeé 

ct="Red occupies"+STR$(c(1))+" hexes"€ 
talkS="REHD AASKYUWPAYZ":SAY tal ks< 
talk$=STRS(c (2) )+"hehxes"< 

GOSUB talk: RETURNE 

END IF< 

IF cl2)=>46 THENE 

a=l¢é 

c$="Yellow occupies"+STR$(c(2))}+" hexes"<¢ 
talk$="YEHLOH AASKYUWPAYZ":SAY talk$¢ 

tal k$=STR$ ic (2))+°hehxes"€ 

GOSUB talk: RETURN€ 

END IF€ 

RETURN€ 

€ 

Setup: < 

DEFINT s¢€ 

SCREEN 1,326,200, 2, 1< 

” open window 3 with no < 

* gadgets or title bar€ 

WINDOW 1,°", (8, G)—(311, 25), 16, 1¢ 

WINDOW 3,"", (@,9)—(311, 185), 16, 1¢€ 

WINDOW OUTPUT 3< = 
PALETTE ,8,9,9¢ 
PALETTE 1,.5,1,1¢ 
PALETTE 2,1,9,8¢ 
PALETTE 3,1,1,.1¢ 
WIDTH 49¢ 

cLsS< 

DIM Voicez(9)<¢ saad 
RESTORE VoiceData< 
FOR j=8 TO 8< 

READ Voice%(j)<€ L 
NEXT< 

RESTGRE< 


c 
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Speech will be synchronous< 
VoiceData:<€ 

DATA 116,98, 176, G, 2Z208, 64, 19,1, 9¢ 
talk$="Welcome to Hex War."< 

LOCATE 13,11¢ 

PRINT talks<¢ 

GOSUB talk<¢ 

Temp$="Click button twice to turn"€ 
LOCATE 15,8:PRINT Temp$<¢ 

Demp$=" speech off or on during game."€ 
LOCATE 16,6:PRINT Demp$<¢ 
talk#=Temp$+Demp$< 

GOSUB talk<¢ 

’ hex shapee 

LINE (9,0)-(2,@):LINE (13,0)-(15,9)¢ 
LINE (0,1£)-(3,1)2LINE (12,1)-(15,1)0€ 
LINE (3,2)-(12,2):LINE (4,3)-(11,5)¢€ 
FOR j=4 TO 11€ 

LINE (6, j)-49, j)€ 

NEXT€ 

LINE (4,12)-(11,12):LINE (3,13)~(12,135)€ 
LINE (8,14)~(3,14):LINE (12,14)-(15, 14) € 
LINE (6,15)-(2,15):LINE (13,15)-(15, 15) € 
DIM stO(225)<€ 

GET (8,6)-(15, 15), s1G< 

PUT (8,8), s19€ 

* curser shape< 

FOR k=@ TO 1¢€ 

GOSUB Bracket< 

PAINT (32,42), 2+k, 1¢ 

LINE (30,35)-(48, 44) ,G,bf< 

LINE (32,32)-(47, 47), 6, bF¢ 

GOSUB Bracket< 

IF k=@ THEN€ 

DIM s8(499)< 

GET (26, 26)-(53, 49), s8¢ 

PUT (26,26), 58¢ 

END IF< 

IF k=1 THEN€ 

DIM s7 (499) < 

GET (26,26)-(53,49) ,s7¢ 

PUT (26,26),57€ 

END IF< 

NEXT k< 

GOTO Blip<e 

Bracket:< 

PUT (16,32),51B¢ 

PUT (32, 48),519¢ 

PUT (48,32) ,s18€ 

PUT (32, 16),516€ 

RETURNE 
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Bhip:¢€ 

? city shapet 

FOR j=@ TO 1¢€ 

LINE (2,35)-(7,50€ 
LINE (2, 3+8)-(7, j+8)€ 
LINE (5,2)-(5,7)€ 
LINE ¢j+8,2)>-(5+8,70¢ 
NEXT< 

PSET (1,12)sPSET (8,1)¢€ 
PSET (1,8):PSET (8,8)<¢ 
DIM s2(199)<¢ 

GET (8,8)-(9,9) 52 
PUT (@,9),s2¢ 

? capital shape< 

FOR k=@ TO 1¢€ 

FOR i=@8 TO 3¢€ 

LINE (4, j)-(11, 5), 2#k< 
LINE (4, §+12)-(11, §412), 2¢k€ 
LINE (1,4+5)—(14, 445), 2+k€ 
LINE (1,8+5)-(14, 8435), 2+ké 
NEXT€ 

LINE (3,6)~(5,9) ,O,bf¢ 
LINE (6,3)-(9,5) 9, bf€ 
LINE (&,10)-(9, 12), 9, bf€ 
LINE (16,6)-(12,9),9,bf€ 
IF k=1 THEN€ 

DIM s3(225) <€ 

GET (6,9)~(15, 15) ,s3< 
PUT (8,0),s3€ 

END IF€ 

IF k=® THEN<€ 

DIM 84(225)¢€ 

GET (8,0)-(15,15),s4€ 
PUT (G,0),54¢ 

END IF¢ 

NEXT k€ 

* army shape< 

FOR i=@ TO 14¢ 

LINE (7,8)-(5,7) ,3€ 
NEXT< 

FOR i=4 TO 10 

LINE (7,2)-(3,5),G€ 
NEXT€ 

DIM 85 (64) <¢ 

BET (8,9)-(14,7),s5¢ 
PUT (9,9) ,55¢ 

” other army shape< 
FOR j=@ TO 14¢€ 

LINE (7,7)~(5,9),2¢ 
NEXT€ 

FOR j=4 TO 10€ 
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LINE (7,5)-(5,2),6¢ 

NEXT< 

DIM sé(64)€ 

GET (6, 8)-(14,7) ,s6€ 

PUT (8,9), 56¢ 

” crosses € 
FOR k=@ TO 1¢€ 

FOR j=8 TO i¢€ 

LINE (8, 2+j)}-(23,2+5) ,2tke 
LINE (16+5,0)-(104+5,5), 2+ké 
LINE (2+5,0)-—(2+5,5),2+ké 
NEXT€ 

FOR j=@ TO 1€ 

LINE (6+j,8)—(6+5,5) ,@€ 

NEXT< 

IF k=® THEN€ 

DIM §11(158)< 

GET (6,0)-(13,13),s511¢ 

PUT (@,8),511¢ 

END IF¢ 

IF k=1 THEN€ 

DIM s7(1SB)<€ 

GET (6,9)—-(13, 13), s9€ 

PUT (8,8) .s7¢ 

END IF¢€ 

NEXT k¢é 

DIM ariny (31,6, 1), BTL (44, 1,3)€ 
DIM map (9,9, 2), fq(2G,1) nx (1) sct2€ 
Gn=12:DIM citlcn, 1€ 

RANDOMIZE TIMER< 

€ 

pn=1:me=31€ 

mm=3 ° Maximum number of moves< 
keani1/483 kb=1/482 ke=1/32€ 
RESTORE Whatsit¢ 

FOR j=1 TO cn¢ 

FOR k=@ TO 1¢ 

READ cit (3,k)€ 

NEXT€ 
mapicit(j,8),cit(j,1),2)=1€ 
NEXT€ 
Whatsit:¢ 
DATA 8,4,9,4,8, 
DATA 5,543,356 
cLs<€ 

GOSUB 3260¢ 
cLS€ 

GOSUB 1599¢ 
RETURNE€ 

< 
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Announce: < 
talktocsé 
€ 

talkz€ 


IF TalkFlag=9 THEN SAY TRANSLATES (talk%),Voice%¢ 


RETURN€ 
€ 
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Chain Reaction 


Mark Tuttle 
Translation by Tim Midkiff 


In this explosive strategy game, the contest is never 
finished until your last bomb has been thrown. 
Requires 512K of memory. 


“Chain Reaction” is a clever strategy game for one or two 
players. Whether you play against the computer or another 
human, the objective is the same: to eliminate all of your op- 
ponent’s bomb-shaped pieces from the field of play. The game 
is played ona 5 X 6 grid of squares, and the players alternate 
turns, placing one bomb in a square on each turn. 

The results of a move depend on how many bombs are 
already in the chosen square and adjacent squares. Whenever 
any square reaches “critical mass,” it explodes and sends its 
bombs into neighboring squares. If those squares are already 
loaded to capacity, they explode too, creating a chain reaction 
that can engulf a large area of the board. 

Type in the program and save a copy of it. Before running 
the program set the screen to 80 columns by clicking on the 
Preferences icon and setting the proper width. Select Start 
from the Run menu to begin, Use the cursor keys to control 
movement and the space bar to place a bomb. 


Bomb Begets Bomb 
When you run Chain Reaction, it begins by asking whether 
you wish to play with one or two players. If you've never 
played before, you may want to play a game or two against 
the computer to learn what sort of strategies it favors. When 
you choose to play against the computer, the program also 
asks whether you'd like the computer to take the first turn. 
The first part of most games involves placement of initial 
pieces, without many explosions. As the board fills up, how- 
ever, explosions occur with increasing frequency. Play contin- 
ues until one player's pieces are completely eliminated from 
the board. 
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The position of a square in the grid determines how many 
bombs it requires to create an explosion. A corner square can 
hold a maximum of one bomb. When you place a second 
bomb in a corner square that already holds one, both bombs 
explode, sending a bomb of your color into two neighboring 
squares. After an explosion, the original square is emptied. 

Other squares require more bombs to create an explosion. 
A border square that isn’t on a comer can hold a maximum of 
two bombs, When you place a third bomb in a border square, 
its explosion sends three bombs into the squares that adjoin it. 
Squares in the center of the game board hold the most bombs 
and also create the most devastating explosions. When you 
place a fourth bomb in a central square, it sends four bombs 
into squares which adjoin that position. 

When an explosion sends bombs into adjacent squares, 
any bombs in that square change color to match the color of 
the exploding bombs. Should one of the adjoining squares sur- 
pass its limit, that square, too, will explode, creating the po- 
tential for even more explosions. This process continues until 
no more explosions are possible. 

Thus, the situation in Chain Reaction is often volatile. The 
lead frequently seesaws back and forth between players, as each 
creates increasingly more widespread chain reactions. Even if 
defeat seems almost certain, you can often regain the lead 
with clever play. When a game ends, the program announces 
the winner and permits you to play a new game or quit. 

Like other games of strategy and placement, Chain Reac- 
tion rewards the player who can think ahead. At first, you 
may be tempted to start making explosions as quickly as pos- 
sible. But that’s not always the best long-term tactic. By 
spreading bombs of your color throughout the board, you may 
be able to survive chain reactions that would otherwise wipe 
you out, 


Chain Reaction 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
programs line. Do not attempt to type the arrows themselves. 


DEFINT a-z:DEFSNG r,g,b< 

SCREEN 1,32@,280,3,1:WINDOW 3,“", (@,8)—(311,186),16 
2 i:WINDOW QUTPUT 3:COLOR 3,0< 

DIM 5(42,1),u(4,5),p(4,5),j(4,5) ,bx (4,5) ,by (4,5) nt 
LoS) ar COZBD oh (258) 5 2 CS) Se (SB) s te (SO) tx tS8) 5 
Y 
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FOR i=2 TO 255:wi (i) =RNDS255S—-128: w2 (i ) SRND#255~1282 
NEXT< 

RESTORE PaletteDatasFOR i=@ TO 7:READ r,g,b:PALETTE 
i,r,sg,DsNEXT¢e 

PaletteData: < 

DATA @, By .7,0,9,D, 8, 2 Gy Dy 75 275075 033s 8798, 95-95 
= 9, 6,9, 8,0, .6,8€ 

WIDTH 40:CLS:RANDOMIZE TIMER< 

GOSUB InitShapes:e=d<¢ 

FOR i=1 TO 3:FOR ji TO 42 4(i, J) =4:NEXT: (i, @)=32 j¢ 
i,5)=33NEXT< 

RESTORE Corners:FOR j=i TO 4:2 j(8, j)=35 j(4, J) =3:READ 
a,b: j(a,b) s22NEXT¢€ 

Corners: DATA %,9,8,5,4,9,4, 5< 

RESTORE BombPos:FOR i=1 TO 4:FOR j=1 TO i:READ bx (i 
+3) yby Gi, j)=NEXT j,i< 

bx (4, 5) bx (4, 4) by (4, 5) by (4, 49 < 

BombPos: DATA 13,9,5,9)28,9, 13,5, 4, 15,22, 15, 13, 3,13 
3175 4,9, 22, 9€ 

LOCATE 8,14:PRINT "CHAIN REACTION"< 

LOCATE 12,9sPRINT “Number of players (1/2)?";< 
WHILE np<>1 AND np<>Zsnp=VAL (INKEYS) : WEND< 

IF np<>2 THEN<€ 

LOCATE 16,19:PRINT “Computer first (Y/N)}?"3< 

WHILE k$<>"¥" AND k#<>"N": kS*UCASES ( INKEYS} s WEND< 
tucABS (k$e"¥")< 

END IF< 

CLS:COLOR 3,1t:LOCATE 1,13:PRINT " CHAIN REACTION “3 


«< 

GOSUB DrawGrid< 

€ 

MainlLoop: < 

WHILE e=6: tu=-tutlscomtuts<é 

IF np=1 AND tu=8 THEN 

GB0SUB Computer< 

ELSE<€ 

GOSUB Human< 

WHILE ply,x)<>tutl AND p(y,x):GOSUB Humans WEND< 
END IF< 

uly, x)ouly,x) 41:FS(tul|=FS(tud+isIF ply,x)sd THEN p( 
ys) =tutie 

GOSUB PlaceBomb< 

IF uly,x)=jly,x)? THEN < 

CheckGrid: e=@:fge@:FOR p=o TO 4:FOR q=8 TD S:y=prx 
=q¢ 

IF uly,x) >=j(y,x? AND e=@ THEN #g=i1:GOSUB Full Squar 
ee 

NEXT q,prIf fg=1 AND e=@ THEN CheckGrid<é 

END IF¢ 

WEND< 

€ 
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EndGame: < 

COLOR 3,1:LOCATE 24,15:PRINT " GAME OVER "3:FOR ist 
TO 19080:NEXT< 

LOCATE 24,5:PRINT " Press space bar to play again. 
« 


kon! WHILE k#<>" “:kS=INKEY@:WEND< 
SCREEN CLOSE 3:WINDOW CLOSE 3:RUN< 
€ 

Human: < 


WHILE INKEYS$<>""sWEND: xshx (tu) s yshy (tu) sdx=8:dy=0:6 
OSUB DrawCursor: k#=""< 

WHILE k®<>° "sk@=INKEYS< 

IF k$SCHR8(28) THEN IF y>® THEN dy=~1< 
IF k®=CHRS(29) THEN IF y<4 THEN dy=1< 
IF k@=CHR®(31) THEN IF x>@ THEN dx=-1¢ 
IF kS@CHRE(SO) THEN IF x<S THEN dx=1¢ 
IF dx<>B8 OR dy<>o THENS 

co=@:GOSUB DrawCursor< 

x=X+dxs yaytdy: co=tut+é6:GOSUB DrawCursor< 
dx: dyaa< 

END IF€ 

WEND: hx (tu) =x shy (tu) «ye 

come G0SUB DrawCursor: co=tut+é6: RETURNE 


Full Square: < 

PaBryys*SZ2ky+15sxx=368x+SO: WAVE @,wisWAVE 1,Ww2¢ 

FOR i91 TO 4:PUT(xx+2, yy+t2),er,PSET¢ 

FOR j@1 TQ 42n(1, §)2INT (RND&S3) —-12: NEXT 
reert+iskeu(y,x)+irbn=co-ér1IF k@j THEN k=S¢ 

ON k GOSUB b@,b1,b2,b3,b4,b4¢ 

FOR me255 TO 19 STEP-20:SOUND 100,.1,m,0< 

SOUND 190,.1,m,32FOR n@=1 TO RND&2O:NEXT nm, miNEXT<e 
trexitytys Jie: Kiek~11yl=32ey+1S+by (1,1) 2x teSsoen +e 
#bx (1, 1)€ 

TF tx>® THEN x=tx-1:dx=-1r:dy28:GOSUB ExplodeBombs:G 
OSUB AddBomb< 

TF tx<S THEN xstx+2sdxe1:dy=8:GOSUB Expl odeBombs: GO 
BUB AddBomb< 

xetxrIF ty>0 THEN y=ty-1:dy2-1:dx=82G0SUB ExplodeBo 
mbs:GOSUB AddBomb< 

IF ty<4 THEN y=ty+i:dy=t:dx=9sG0SUB Expl odeBombs: G0 
SUB AddBomb< 

IF FS(@)<1 OR FS(1)<1t THEN emi< 
yatyzuly,x)auly,x)~J (yx) SGOSUB PlaceBomb:IF uCy,x) 
=O THEN ply,x)=0¢ 

RETURN<€ 

< 

AddBomb: < 

IF ply,x)<>tutd THEN FS (tu) =FS (tu) tu ly, x) FS (—tuel) 
=FS(-tuth)—uly, 
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pty, x)stutisaly,x)=uly,x}+11G08UB PlaceBomb: RETURN¢ 
« 


DrawGrid:< 

FOR y=@ TO 4:yye32ky+16:FOR x=8 TO Sixx=36axn+51¢ 
LINE (xx, yy) — (xx4+34, yyt3@) 2, b¢ 

NEXT x, ye 

GET (xx41, yyt1) ~(xx433, yy+29) , ert RETURNS 

€ 

DrawCursor:< 

yy=328yt15: xx=368x+5G< 

LINE (xx, yy) — (xx +36, yy+32) co, b€ 

LINE (xx4#2, yy+2) — (xx4+34, yy+3@),c0,b < 

RETURNE 

€ 

PlaceBomb:< 

vy"S2ty+15: xx2368x+50: r=8:bn=co-6¢ 

PUT (xx+2, yy+2),er,PSET:k=u(y,x)+12IF keé THEN k=5<¢ 
ON k GOTO b9,61,b2,603,b4,b4< 

b@: RETURNE 

bis PUT (xx+tbx (1,k-1), yytby(1,k-1)),8(8,bm) sRETURNE 
b2: FOR j=1 TO k-2:PUT (xx+bx (2, J) +n (rr, 5) »yy+by (2, 4) 
+n(r,jJ)}),5(8,bm) sNEXT: RETURNE 

b3s FOR joi TO k-12PUT(xx+bx (3, j)+n(r, J) syytby (3, J) 
+n, j)),5(8, bm) NEXT: RETURNG 

b4: FOR j=l TO k-1sPUT{xx+bx (4, j)+n(r, J) pyytby (4, J) 
+n(r yj?) ,8(8, bn) sNEXT: RETURN 

€ 

CheckNei ghbor :< 

fpeizIF y>@ THEN IF p(y-1,x)=2 THEN ay=y-1:RETURN€ 
IF x>@ THEN IF p(y,x-1)=2 THEN ax=x—-1:RETURNG 

IF x<5 THEN IF p(y,x+1)=2 THEN ax=x+1sRETURNG 

IF y<4 THEN IF p(ly#1,x)©2 THEN ay@y+1:RETURNC 
#pe291 RETURNE 

€ 


Computer: <€ 

xteOr:FOR y=8 TO 4:FOR x=@ TO S< 

IF ply,x)}<>2 THEN xtextttety (xt) eyrtx (xt axe 

NEXT x,y¢ 

LOCATE 24,15:COLOR 3,@:PRINT "Thinking... "3<¢ 

FOR i=1 TO xtert(id=Ostr (i)=Ory=ty (i) sxetx (i) :G0SUB 
CheckNei ghbor< 

IF fgmi AND fp AND uly,x)>®@ THEN EndComputer< 

IF uly,x) +1sj(y,x) THEN < 

IF fp#i AND ulay,ax)+1=jlay,ax) THEN rt(i)=6:G0TO C 
heckNext< 

IF fp=i THEN rt(i)=2:G0TO CheckNext< 

IF fp=@ THEN rt (i)=1:G0TO CheckNext< 

END IF<€ 

IF j(y,x)©2 THEN< 

IF fp=@ AND uly,x)=2 THEN rt(i)21:GOTO CheckNext< 


129 


CHAPTER TWO 


IF fp=@ AND uly,x)=@ THEN rt(i)=4sG0TO CheckNext< 
IF fp#i AND ufy,x)#1 THEN rt (i)}=4:G0TO CheckNext< 
END IF€ 

IF ulay,ax)+1oj(ay,ax) THEN rt(i)=1:GOTO CheckNext< 
IF uly,x)#2>ej (y,x)? THENS 

IF fpwi AND ulay,ax)+1<j(ay,ax) THEN rt(i)=52:G0TO C 
hackNext< 

IF ¢p=@ THEN rt(i)=3:GOTO CheckNext< 

rt(i)=2:G0TO CheckNext< 

END IF< 

IF #p2@ THEN rt(i)=2:GO0TO CheckNext< 

rtdidale 

CheckNexts NEXTszt=@: ab2o< 

WHILE ztoa¢ 

FOR imt TO xtsIF rt(ideab THEN ztezttistr (zt) s1¢ 
NEXT: abaab=-1¢ 

WEND< 

Gh=INT (ztSRND) +12 hd=te (dh) ey=ty (hd) sxetx (hdd < 
EndComputer: LOCATE 24,15:PRINT ” "pefgat 
g+isRETURNE 


<« 
Exp] odeBombs: ¢ 

JimIi+tsxxext—bx (1,1) syyzyloby (1, 1) 3821987: bn=co-6<¢ 
WAVE @,SIN: SOUND 662, .5, 255¢ 

FOR j=1 TO S@@:NEXT:SOUND 9,9,0< 

PUT (xx#bx (K1,d1) tn (ry Ji) ,yytby (K1,J1)+n(r,d1)),5(8, 
bade 

IF dy=@ THEN < 

X2ey 14358dx s dxedx #42 PUT (x1, 1), 5 (8, bn) < 

FOR i=x1 TO X2 STEP dxis=s-4O0:SOUND 5,1, 50¢ 

PUT (Ci, y1),8 (8, bm) sPUT (1 +dx, y1),6(8,bm) sNEXTE 

PUT (xx43, yy +3) ,@r< 

ELSE< 

Y2eyi+31tdy:dy=dy%4s PUT (xt,yl),8(9,bn)< 

FOR i=yi TO Y2 STEP dy:s=s-49:SOUND s,1,50< 

PUT (x1,4),8(@,bn) sPUT (x1, i+dy) , 6 (B, dm) sNEXTS 

PUT (xx43, yy#3) »ers 

END IF< 

RETURNG 

«< 

InitShapes: <¢ 

RESTORE RedBomb< 

FOR j=@ TO 1:FOR i=@ TO 42¢ 

READ a: (4, J} =VAL (“&H" +a) 2NEXT 1, $sRETURNG 

< 


RedBomb: DATA B,D, 3, 208, 499, 490, 0, 1800¢ 
DATA 3028, 1BQG, ADS, 498, AGO, 1B80, 0, 2< 

DATA 9,2, 0, E02, 2780, 4FCO, E4EO, FSED< 

DATA FBE@, FSE@, 6400, 3FS0, E08, 260, 400, 480< 
DATA E@2, 3F8G, 7FCB, E4ES, FSES, FBEG, FSEO, 64C0< 
DATA 3FG,ES6, SFA 
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« 

GreenBomb: DATA B,D,3, 288,488, 406, E00, SFA< 
DATA 7FC@, FFES, FFEQ,FFES, FFE®, 7FCO, 3FBS, EOS 
DATA &,9,2,£28, 2780, 4FCO, AED, FSEG< 

DATA FBES, FSES, 6406, 3F88, £68, 200, 400, 400< 
DATA E09, 3FS0, 7FCO, E4ES, FSEG, FBEG, FSEO, 64C0< 
DATA 3F86, E60, SFas< 

«< 

€ 
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Amiga BASIC Style 


Jim Butterfield 


Learn to manage custom menus and output windows, 
read mouse input, trap background events, and 
master other techniques which give Amiga BASIC its 
unique character. The article also highlights some of 
the differences between Amiga BASIC and earlier 
BASICs, and includes a useful program for 
calculating mortgages. 


There’s a different style to BASIC programming on the Amiga. 
You should take a close look at new features; you'll discover 
concepts that lead to a radically different style of programming 
and user interaction. 

To illustrate some of these concepts, let’s construct a sim- 
ple Amiga BASIC program which analyzes the five important 
variables in a home mortgage: principal (amount borrowed), 
interest rate, period of loan, monthly payment, and balance 
due. Since interest-compounding schedules are different in 
Canada from in the United States, the program includes an 
option for choosing either schedule. We'll discuss elements of 
the program as we go through it. 


Initialization 


REM Mortgage (Version 1)< 

DIM titles(4), sites (2), pudef% (5) , value@ (5), peryear ¢ 
2), compound (2) < 

cal=4:sitesl¢ 

€ 


The REM identifies the program and version. The DIM state- 
ment defines the six arrays used in the program, which we'll 
discuss as we go along. Note that there are no line numbers in 
Amiga BASIC. They are not needed. Even with GOTO or 
GOSUB, it’s usual to identify a line with a label, not a num- 
ber. (You may include line numbers if you like—a feature in- 
cluded for the sake of compatibility with other BASICs—but 
since the line numbers are treated simply as labels, numeric 
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order is irrelevant.) 

Also, notice that we use descriptive words for variable 
names. In the versions of BASIC on earlier Commodore com- 
puters, only the first two characters of the variable name were 
significant (HO$ and HOUSEHOLD$ would be considered the 
same name). In Amiga BASIC, names can be up to 40 charac. 
ters long with every character significant (Householdbudget1 
and Householdbudget2 are recognized as distinct names). De- 
scriptive variable names make the program much easier to un- 


derstand and reduce the need for explanatory REM statements. 


We also set the default value of the two variables that deter- 
mine which menu items are selected. The loan variable to be 
calculated (cal) is 4, the payment amount. The default interest 
compounding schedule (sie) is that for country 1, Canada. 
Change either of these if you wish. 


DATA Principal, Rate, Years, Payment, Balance, Quit< 
MENU S,0,1,"Calculate"< 

FOR j=l TO 6tREAD titles(j< 

MENU S,5,1-(jecal),” “ttitle®(j)rNEXT 4< 

« 


The DATA statement contains the items for the first of 
our custom menus, as well as the captions for the output win- 
dow (the array title$). One of the most significant features of 
Amiga BASIC is that the programmer can easily construct cus- 
tom menus. 

We'll choose menu 5 for our first custom menu so that 
menus 1-4 can retain their default uses: Project, Edit, Run, 
and Windows, The first MENU statement sets Calculate as the 
title for the menu; then the FOR-NEXT loop reads the DATA 
items into the corresponding menu slots. Note the expression 
1—(=cal) for the third parameter of the MENU statement in 
the loop. Just like earlier Commodore BASICs, Amiga BASIC 
interprets a true expression as —1 and a false expression as 0, 
so 1—(j=cal} will evaluate to 1—(—1) = 2 when the value of 
j equals the value of cal, and 1—(0) = 1, otherwise. A value 
of 2 for this parameter puts a check to the left of the menu 
item, so this feature is used to indicate which calculation op- 
tion is currently selected. A value of 1 displays the menu item 
without a checkmark, but still makes it active; a value of 0 de- 
activates the menu item, leaving it dimmed, or ghosted, and 
impossible to select. 
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DATA Canada, 2, 4,USA, 12, 1< 

MENU 6,@,1, “Country"< 

FOR j=1 TO 2:READ site®(j),peryear (j),compound(j)< 
MENU 6,j,1-Cj=site),“ “teite®(j)aNEXT j< 


Different rules are used in the U.S. and Canada to work 
out a monthly interest rate based on the annual interest figure. 
In the U.S., the annual amount is simply divided by 12. In 
Canada, semiannual compounding is used, which involves di- 
viding by 2 to get the semiannual rate and then using a more 
complex formula. The user will be able to pick the appropriate 
system from menu 6, which is titled Country. It would not be 
too hard to add extra menu items, such as compounding quar- 
terly (the numeric DATA items would be 4,3). The FOR-NEXT 
loop here uses the same technique for flagging the current 
menu selection as the one above. 


Format with PRINT USING 

« 

DATA “#, 800, 00. H0°< 

DATA" Haw. HK < 

DATA" ane "< 

DATA "#, dH, O88. O8°< 

DATA "#, #48, O88. OS 

FOR j=1 TO SsREAD pudef@(j):NEXT J<¢ 


These are the PRINT USING templates that tell how the nu- 
meric values of the five loan variables are to be printed. The 
principal amount, for example, is printed as a dollars-and- 
cents value. The annual interest rate, in contrast, will be 
shown to three decimal places with a percent sign. 


«< 
DATA 18880, 18, 18,0, 0< 
FOR j=1 TO S:READ value#(j)sNEXT j< 


These are just arbitrary figures to appear on the initial 
screen. I've picked a principal amount of $10,000 at 10 percent 
over ten years. Your own default values may be substituted. 
Once the program is running, any of these values can easily 
be changed. 

An important point: Note that the array into which the 
values are read, value#, has an extra symbol at the end. The # 
sign (pound sign, hash mark, or whatever you want to call it) 
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indicates that these variables are double precision. If you've 
worked with previous Commodore machines which offered 
only one level of numeric precision, you might be unclear 
about this issue. Here’s the story: In earlier Commodore BA- 
SICs, variables worked to about ten digits of accuracy. That 
was enough—just barely enough—to do most home finance 
calculations, Normal (single-precision) Amiga BASIC vari- 
ables—the type you usually get if you don’t add a type identi- 
fier after the variable name—are reliable to only about seven 
digits. This means that it can’t handle amounts of more than 
about $167,000 without losing pennies. 

Computer scientists will tell you that single-precision 
Amiga BASIC variables have a 24-bit mantissa, as opposed to 
the 32-bit mantissa in earlier Commodore BASICs. This means 
that whenever you need to deal with dollars-and-cents val- 
ues—or with other values requiring a high accuracy—you 
need to call for a double-precision variable, Such a variable 
will have more accuracy—-enough to cover a federal budget 
and still be exact on the pennies. To specify double precision, 
add a # sign to the end of the variable name. Be careful to in- 
clude the sign each time you use the variable name, however. 
Amiga BASIC will consider value and value# to be two differ- 
ent variables. 


A Custom Window 


€ 

WINDOW 2, "Mortgage", (10, 19)— (400, 109) ,B< 
WINDOW OUTPUT 2< 

GOSUB calc:GOSUB showval< 

LOCATE 7,1¢ 

PRINT "Use menu buttons to select option. "< 
PRINT "Click on existing values to change. °< 
GOSUB hangé 

WINDOW CLOSE 2¢ 

END< 


Now we open a new window in which the calculations will 
appear. The only gadget we put on the window is the closing 
gadget (code 8). It’s there so that the user can still put away 
the window manually in case the program is stopped. The 
window is not only created, but also selected for output. Then 
the initial calculations are displayed, along with brief instruc- 
tions near the bottom of the window. 
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The program’s main job is a subroutine called hang. We'll 
stay in that subroutine until the user wants to quit, at which 
time the window will be closed. Here is the hang subroutine: 
€ 
hang:< 
ON MENU SOSUB event< 
ON MOUSE GOSUB event< 
MOUSE ON< 
MENU ON< 
kwiteo< 
WHILE kwit<>12WEND< 
MOUSE OFF<¢ 
MENU OFF< 
MENU RESET< 
RETURNE 


We define an action for the mouse and for the menus we 
previously defined. Clicking the left mouse button or selecting 
a menu item invokes the event subroutine. These two activities 
are interrupts or event traps. After they are activated with 
MENU ON and MOUSE ON, they will remain in place, wait- 
ing for the appropriate event to happen, until they are can- 
celed or turned off. While they are active, it doesn’t matter 
what the program is doing; a suitable stimulus will immedi- 
ately cause the program to jump to the specified subroutine. 

A variable called kwit is used by the program to tell when 
it’s time to quit. As long as it’s 0, the program stays in the 
WHILE-WEND loop. How does it ever get out of this seem- 
ingly endless loop? Remember the event traps we just en- 
abled. Pressing the left mouse button or selecting a menu item 
will trigger a GOSUB to the event routine, which in turn calls 
subroutines to process the button click or menu selection. One 
menu selection, the Quit option from the Calculate menu, will 
change the value of kwit to 1 to end the loop. After exiting the 
loop, we'll shut off the menu and mouse, disconnect the event 
traps, and return to the main program, which ties things up. 


A Major Event 


€ 

event:< 

me=MOUSE (8) 1 mn=MENL IS) < 

IF an THEN SOSUB menuhit< 

IF ms THEN SOSUB aak<e 

IF kwit=@ THEN GOSUB calc:GOSUB showval< 
RETURNE€ 
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Now let's look at the routine where the real action takes place. 
When we arrive at the event subroutine, we know that one of 
two things has happened. Either the left mouse button has 
been clicked or a menu item has been selected by using the 
right mouse button. The MOUSE and MENU functions are 
used to check which, and the appropriate service subroutine is 
called. Once the new value for cal or site has been established, 
we're ready to calculate new values, but first we check that 
kwit is still O—we don’t want to calculate values if the Quit 
option from the Calculate menu was selected. The new finan- 
cial values are determined by calling the subroutine calc, then 
displayed using the showval subroutine. Keep in mind that 
we'll come back to this routine to recalculate anytime the data 
elements—or the rules—are changed. 

€ 

calcs< 

ON ERROR GOTO oops< 

principal #=value@(1)< 

cie7 svatuee (2) /100/peryear: (site) +1)*(1/compound (sit 
e 

rateter 1@-1¢ 

months=val ue# (3) 812¢ 

payment #=valued (4)< 

balance#=valuet(S)< 

ON cal GBOSUB fprin, fintr, fper, fpay, fboal<¢ 
scalee1@@:IF cale2 OR cal#=3 THEN scale=1900< 

value@ (cal )=INT (valued ical )8acalet. 79) /scale¢ 

ON ERROR GOTO o< 

RETURNG 


The calc subroutine is where the dirty work begins. The 
principal, interest rate, number of periods, payment amount, 
and final balance are extracted from the value# array so that 
they can be used by the various calculation programs more 
easily. Note that in most cases, we retain double-precision ac- 
curacy with the # sign. The monthly interest rate is worked 
out by a fairly complex formula, and the number of months 
equals the number of years times 12. 

The variable cal tells us what to calculate. Depending on 
its value, we'll call fprin (find principal), fintr (find interest 
rate), fer (find period), fpay (find payment), or fbal (find bal- 
ance). The calculation with scale rounds any calculated value 
to the next highest penny, or, if not a money figure, to three 
decimal places. 

The calculation subroutine also includes an error trap, 
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since some calculations are impossible or ridiculous (for ex- 

ample, how long would it take to pay off a $1,000 mortgage 
with a payment of $0 per month?). Problems are directed to 
an event trap named oops. 


€ 

oops:< 

valuat (cal =< 
RESUME oops2< 
oops21<¢ 

WINDOW 2< 
RETURN€ 

«€ 


If there’s any calculation problem, we set the calculated 
value to 0 and give up. We do not go back to the detailed cal- 
culation program. Instead, using oops2, we return to the main 
calc routine. But first, it’s necessary to reopen WINDOW 2, 
since the Amiga always closes any secondary windows when 
an error occurs. Notice that the message at the bottom of the 
window is not reprinted. So if you see the window blink and 
then reappear minus the message and with the value being 
calculated set to 0, an error has been trapped. If this occurs 
when you enter what seem to be legitimate values, it may in- 
dicate that you made an error while entering the program. For 
this reason you may want to omit the ON ERROR statements 
until you are confident that you have eliminated all typing 
mistakes in the program. 

Here are the five calculation routines. We won't plunge 
into details of the math here, since it’s rather complex. 


#prinsé 

value#(1)=(balance#+payment@s (r 14*months—1) /rated) / 
r1@“months<¢ 

RETURNE€ 

« 

fintrr<e 

OeOsr LA@EXP(75/months) IF ri#>2 THEN ri#e2 < 
rateter1#—-1:r9#=rateés109< 

pO®=bal ance#+paymant#smonths-principal #€ 

p9#= (bal ance#+payment#s (r1@“months-1) /rate#) /ri#“mo 
nths-principal #< 

IF p@#<@ OR p?#>6 THEN < 

r28=D< 

ELSE< 

flopi=mg< 

WHILE ABS (r9#-rB#) >. 691< 

Flop%=1-flopze 
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IF flop%>@ THEN< 

F280 (Bet FH) /2¢ 

ELSE¢ 

F2HarGe—-pSs (98-1 OH) / (pIH—pPOH) < 

END IF€ 

rié= (14724/190/peryear (site) )*(1/compound (site) )< 
ratet=r 18-1¢ 

p2#= (balance#+payment#s (r1#“months—-1) /ratet) /r ie “mo 
nths-principal #< 

IF p2#>@ THEN< 

rebar 24: pob=apZH< 

ELSE< 

rIh=r 24: pIH=p2H< 

END IF< 

WEND< 

END IF< 

value (2) =r2< 

RETURN< 

€ 

fpers< 

value (3) =LOG ( (payment #-ratetabal ance#) / (payment #—r 
ate@%principal #) ) /LOG (r 18) /128€ 

RETURNS 


fpay:< 
valued (4) =r ate#s (principal #4r 14#“months-bal ance#) /(r 
14#months-1)< 


RETURNE 


€ 

fbals< 

values (5) =principal #&r 18“months—paymentes (r 18°%mon: 
871) /ratat< 

RETURNG 

«€ 


The only one of the above routines that’s lengthy is fintr. 


There’s no simple formula for the interest rate, so we must 
zero in on the correct value by repeated calculations. 


Displaying Results 
Now to display the calculated values: 


showval t< 

FOR j=1 TO S¢ 
LOCATE 4,1¢ 

IF jecal THEN < 
PRINT "“8"3<€ 
ELSE< 

PRINT " “"5€ 
END IF¢ 
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PRINT titles®( J); SPACES (20)< 
LOCATE 4,12¢ 

PRINT USING pudef®(j) svalue@(i)< 
NEXT j< 

RETURNG 

« 


For a good human interface, I wanted to distinguish be- 
tween the calculated item and the entered values. The title for 
the value being calculated will be preceded by an asterisk. 
SPACE$ is used to generate a string of blanks to wipe out any 
old values, 


A Choice Is Made 


manuhits< 

ms=D< 

IF mn>4 THEN¢ 

mn =MENU (1) < 

ON mn-4 GOSUB newcalc, atyle¢ 
END IF<€ 

RETURNG 


Here’s the routine to handle menu selections, The value mn, 
given the value of MENU(0) in the calling routine, is used to 
determine which menu is involved, MENU(1) tells us which 
item from the menu has been selected. We then subtract 4 from 
mn to get an offset of 1 or 2 for the ON-GOSUB statement. 


€ 

newcalci<é 

IF mnt<&° THEN€ 
MENU S,cal,1<¢ 
cal=mn1< 

MENU 5, cal, 2¢ 
ELSE< 

IF ant=6 THEN kwitel< 
END IF<€ 
RETURNE 

« 

style:<¢ 

IF mni<3 THEN< 
MENU 6,site, 1<¢ 
site=mni<c 

MENU 6,site, 2¢ 
END IF<€ 
RETURNE€ 

€ 


143 


CHAPTER THREE 


The newcalc subroutine is called when menu 5, the Calcu- 
late menu, is selected. If the item selected from that menu is 
1-5, the previously selected menu item has its checkmark re- 
moved, and a checkmark is placed beside the newly selected 
item. The value of cal is updated to show which variable is 
now being calculated. If menu item 6, Quit, is chosen, we in- 
stead set the value of kwit accordingly. The style subroutine 
sets site to the selected country when an item is selected from 
menu 6, the Country menu. 


eaki< 

x@MOUSE (3) s y=>MOUSE (4) < 

IF x>3 AND x<199 THEN< 
v@INT ( (y+8) /B)< 

IF v>@ AND v<6é AND v<>cal THEN< 
LOCATE v,i2:PRINT SPACES (20) < 
LOCATE v,i2: INPUT valuet(v)< 
LOCATE v,i2:PRINT USING pudaf#(v);valuet(v)< 
END IF< 

END IF< 

RETURNE 

€ 


When the left mouse button is clicked, the eek subroutine 
allows entry of a new value. It’s important to read MOUSE(0) 
before reading the mouse’s position, but in this case, that’s al- 
ready been done in the event routine that calls eek. The x and 
y coordinates of the mouse pointer’s current position come 
from MOUSE(3) and MOUSE(4), since those functions return 
the position of the mouse when the button was clicked. 
MOUSE(1) and MOUSE(2) return the mouse’s position at the 
time of the MOUSE(0) call, so either would probably give 
comparable results in this case, Remember that we are reading 
pixel positions, not character positions. Before recognizing a 
click as a request to enter input, we check that the pointer was 
reasonably close to one of the displayed values. One more 
limitation is that we won't allow an entry for the cal variable: 
The computer calculates that value. 

Once we know it’s a valid variable, we clear the old value 
using SPACE$, input a new value, and then print it neatly for- 
matted in the space provided. 


Maiden Voyage 
Let's give the program a trial run. First, you'll see the window 
appear. If you have used the initial values suggested, you'll 
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notice that the program has calculated a payment of $131.04. 
That’s the Canadian computation. Now press the right button, 
slide the mouse pointer up to the Country menu, and move 
down to USA before you release the button, The payment 
should change to $132.16, 

This is a ten-year mortgage. Let’s see what the balance 
would be after five years. Use the right button (also called the 
menu button, for obvious reasons) to select the Balance option 
from the Calculate menu. The balance will show a slightly 
negative amount. That’s okay (each payment is rounded up a 
fraction of a penny, so the final payment will be slightly less 
than 0). Next, move the pointer up to the Years value in the 
display window menu and click the left button. The computer 
is inviting you to enter a new value: Enter 5 for five years. 
Observe that the balance still due after five years is a little 
over $6,000.00. 

How long to pay it off at $150 a month? Select Years 
from the Calculate menu, Change the Balance value to 0 and 
the Payment value to 150. The answer is, a little more than 
eight years. If you change the interest rate to 12 percent, you'll 
see that it would take over nine years to pay off the loan. At 
18 percent, you wouldn't live long enough to pay it off at 
$150 a month, and at 20 percent, it’s impossible (note that the 
Years value is set to 0 to indicate the error). When you've 
snooped through the combinations enough to satisfy yourself, 
select Quit. And don’t forget to save the program. If your an- 
swers don’t match these, check the formulae for typographical 
errors, 

After running through this exercise, think how different 
things would be on any eight-bit computer. It’s not just the 
mortgage calculation; it’s the style of the machine. With a 
fresh approach, you can make your Amiga more flexible and 
useful than any computer you've used before. 
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Foolproof Input for 
Amiga BASIC 


Tom Bunker 


Amiga BASIC programmers will find this routine 
quite handy—a routine that creates edit-field boxes 
for accepting various kinds of keyboard input. The 

routine also demonstrates how well-designed 
subprograms can, in effect, add new commands 
to Amiga BASIC. 


Amiga BASIC’s ability to use custom subprograms is one of its 
most valuable features: It allows programmers to accumulate a 
library of very useful routines that can be attached to virtually 
any BASIC program. The simple requester window subpro- 
gram presented later in this chapter is just one example. An- 
other subprogram that should be in every programmer’s 
collection is a foolproof input routine. 

The ideal input routine would simulate the Amiga operat- 
ing system’s own edit-field boxes, An example of such an edit 
field appears when you select the Save as option in Amiga BA- 
SIC’s Project menu. A similar routine in BASIC would give 
your programs much more control than provided by the stan- 
dard INPUT statement. It would be helpful, for instance, to be 
able to limit the number of characters that can be entered or to 
limit numeric input to integers rather than print error mes- 
sages after the fact. The input routine shown here has all of 
these capabilities and more. 


Edit Fields in BASIC 

The complete input routine consists of two subprograms: 
Getline, which gets a line of input from the keyboard, and 
Box, which Getline calls to draw an edit-field box and cursor 
on the screen. The Box subprogram is very useful in its own 
right and can be used independently of Getline. 
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Getline lets you create the equivalent of an edit-field box 
in Amiga BASIC. Here are some of its features: 


¢ The main program which calls Getline sets the maximum 
length of input allowed. 

* The Box subprogram draws an edit-field box of appropriate 
size. 

« The cursor inside the box can be flashing or nonflashing. 

«The main program can select the type of input allowed: al- 
phanumeric characters, real numbers, or integers. 

¢ The range of alphanumeric characters accepted for input can 
be adjusted. 

+ Pressing the ESCape key aborts the input operation. 

« A single keystroke can erase all input within the edit-field 
box. 

¢ The main program can display a default entry within the 
edit-field box which the user can edit. 


Getline can be used any time your program needs to ac- 
cept input from the keyboard, for entry of data, filenames, or 
whatever. To use Getline, your program should first print any 
desired prompt message and leave the cursor at the point on 
the screen where input is to begin. Then you must call Getline 
using this general format: 


CALL Getline (string$,maxlength%,inputtype%) 


The string variable string$ holds whatever default text you 
want to display inside the edit-field box for the user to edit, 
and also returns the input entered by the user. For instance, if 
Getline is called as part of a save-data-to-disk routine, you 
could suggest a default filename or use a filename which the 
user has previously indicated. If you don’t want to display 
anything within the edit-field box when it appears, set this 
string variable to a null string (“ “) before calling Getline. In 
any case, Getline returns the user's input in this string variable 
after the. subprogram passes control back to your main program. 

The second parameter (maxlength%) is an integer which 
sets the maximum input length. For instance, if you want to 
limit input to 30 characters, you'd specify a 30 for this param- 
eter by supplying either an integer variable or a constant. 

The last parameter {inputtype%) is an integer which tells 
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Getline which type of input to accept. There are three possible 
values: 


0 accepts all alphanumeric characters without restriction, 
1 accepts real numbers—the digits 0-9 and the decimal point. 
2 accepts integers—only the digits 0-9. 


The real and integer types also accept the plus and minus 
signs, but only in the first character position. Getline simply 
ignores all keystrokes that do not conform to the type of input 
selected. 


CALLing Getline 
Here are a couple of examples, Let’s say you want the user to 
enter his or her name, up to 14 characters long, and you want 


your program to store the information in the string variable 
NAME$, The proper CALL would be: 


CALL Getline (NAME$,14,0) 


If you want the user to enter a three-digit integer number 
(perhaps a telephone area code), the proper CALL would be: 


CALL Getline (NUMBER$,3,2) 


Note that Getline always returns the user’s input in a 
string variable. If the input you're seeking is an integer or a 
real number, you can convert it from string to numeric form 
with the VAL function after Getline returns control to your 
main program. 

Remember, too, that Amiga BASIC’s CALL statement has 
an alternate syntax: You can omit the CALL keyword if you 
delete the parentheses surrounding the arguments. The follow- 
ing statements work the same as the examples above: 


Getline NAME$,14,0 

Getline NUMBER$,3,2 

This syntax saves a bit of program space, but also sacrifices a 
certain amount of program clarity. If you include the CALL 
keyword, it is always clear to others that the program is calling 
a subprogram. 


Special Keystrokes 


When called, the Getline subprogram first draws an edit-field 
box the proper size to hold the input. If the string variable 
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supplied in the call is not a null string (two quotes with noth- 
ing between them), the subprogram prints the string inside the 
box. A flashing cursor indicates that the program is awaiting 
keyboard input. Like the Amiga operating system’s own edit 
fields, Getline recognizes the following special keystrokes: 


« ESCape exits the edit field and leaves the string variable with 
the value it had when Getline was called. 

«RETURN exits the edit field and assigns the user's entry to 
the string variable. 

¢ BACKSPACE deletes the character to the left of the cursor. 

* DELete removes the entry currently in the edit field. 

* CURSOR LEFT moves the cursor one space to the left. 

* CURSOR RIGHT moves the cursor one space to the right. 


The last four commands, of course, are valid only if at 
least one character is within the edit field. 


Customizing Getline 

Note that Getline is designed to work only when Amiga BA- 
SIC’s default font is used and Preferences is set to 80 columns. 
If you're using a 60-column screen or a different font, the text 
doesn’t appear properly within the edit-field box. You can 
modify the subprograms to solve this problem if you don’t 
regularly use the default 80-column font. 

If you don’t want to bother with three parameters every 
time you call Getline, you can omit either the maximum string 
length or input type or both, as long as you also delete the 
corresponding items from the parameter list of the SUB state- 
ment. The Getline call can be made as simple as this: 


Getline NAME$ 


In this case, the SUB statement would have to be changed 
to look for only one argument: 


SUB Getline(inputstring$) STATIC 


Getline substitutes default values for maxlength% or 
inputtype% when they are missing from the parameter list. 
Maxlength% defaults to 40, and inputtype% defaults to 0 
(thus accepting all types of input). You can change these de- 
faults too, if you wish. 

Two variables in the Getline subprogram—asc.low and 
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asc.high—determine the ASCII range of characters that are ac- 
cepted in the edit field. You can change these variables to 
make the subprogram accept any range of characters desired, 
even to the extent of restricting input to only one key, They 
could also be declared in a SHARED statement and set by 
your main program. 

The ESCape key aborts the input and exits the edit field. 
If your main program needs to know whether or not the edit 
field was terminated by ESCape (as opposed to a RETURN 
with no other input), add the following line to the Getline 
subprogram immediately following the SUB statement: 


SHARED K 


After the subprogram ends, your main program can test the 
value of K. If K = 27, the ESCape key was pressed. 

You can also program one or more of the special function 
keys to work in a similiar fashion by adding additional lines 
directly below the ESCape-key line to test for any other ASCII 
value. For example, the addition of 


IF K>=129 AND K<=138 THEN EXIT SUB 


makes all the function keys abort the input like ESCape. Your 
main program could then test to see if K is equal to the ASCII 
value of any of the function keys and take whatever action is 

desired. 

By deleting a single line as instructed by comments within 
the subprogram, Getline will always start with an empty 
string. Other comments show how the flashing cursor can be 
changed to a nonflashing cursor and how the box around the 
edit field can be eliminated. To make these changes, it’s not 
necessary to actually delete the lines which are indicated. Sim- 
ply insert a REM at the beginning of the line to disable it; this 
has the same effect and is more easily reversed. 


The Box Subprogram 

To draw the box around the edit field, Getline calls the Box 
subprogram. This subprogram selects a rectangular area of the 
screen and alters it in one of four ways. You may find this 
technique useful for other purposes as well. Here is the gen- 
eral format of the Box subprogram call: 


CALL Box (wide%,high%,border%,mode%) 
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or 
Box wide%,high%,border%,mode% 


The first two parameters (wide% and high%) set the size 
of the boxed area by specifying the width and height in num- 
ber of characters. The third parameter (border%) changes the 
size selected by increasing or decreasing the area on all four 
sides by the number of pixels specified. If this argument is 0, 
the perimeter of the area falls on the character boundaries. 
The last parameter (mode%) can range from 0 to 3: 


0 fills the box interior using a PATTERN statement. 
1. inverts the interior of the box. 

2 outlines the area using the foreground color. 

3. fills the box interior using the foreground color. 


The Box subprogram can be very useful when you want 
to erase a word or clear any rectangular section of the screen. 
Consider this statement: 


COLOR background#:Box 30,1,0,3:COLOR foreground# 


This erases a section of the screen 30 characters long . 
without affecting any surrounding text. It sets the foreground 
color equal to the background color, fills the area, and resets 
the color. Of course, you can achieve the same effect by print- 
ing spaces, but the Box subprogram works much faster. 


Getline Input Routine 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line, Do not attempt to type the arrows themselves. 


SUB Getline(inputstrings, maxlength%, typex%) STATIC 
«< 


"Value of type% should be ® for character, 1 for re 
al, 2 for integer<¢ 

"Seat default maximum length:< 

defaultlength=49<¢ 

IF maxlength%=8 THEN maxlengthZ=sdefaultlength < 
y=CSRLIN: x=PO0S (o) saser"< 

asc. low=S2:asc.high=125 ’Set ASCII limits< 

"Delete next line te disable adit mode:< 
at=inputstring® < 

cur sor=LEN (a$):strlength=LEN (ad)< 

*Delete next line to @liminate input box:< 

Box maxlength%,1,2,2 < 

Print.lin 
LOCATE y,x:PRINT a%+SPACE$ (maxlengthZ-LEN (as) )< 
Getkey:< 
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K@oINKEYS < 

*Delete next line for nonflashing cursor:< 
countscount-1 < 

IF count<=@ AND cursor<maxlength% THEN< 
LOCATE y,xtcursor:Box 1,1,9,1¢ 

count=188 ’Set cursor flash rate:< 


END IF< 
IF k#=—"" THEN Gatkey< 
kMASC (k#) scountage 


IF k=13 THEN inputstring¢=a%:GOTO Done *Return key¢ 
IF k=27 THEN Done *ESCape key< 

IF k>=asc.low AND k<=asec.high AND strlength<maxleng 
th% THEN€ 

IF type%>@ THEN "Check if real or integer< 

IF k<43 OR &>S7 OR k=44 OR k=47 THEN Print. line<¢ 

IF (k=43 OR k2345) AND cursor>@ THEN Print. line< 

IF type%>1 AND k=44 THEN Frint.line< 

END IF < 

LOCATE y,x+cursor:cursor=cursor+1:strlength=strleng 
thet € 

aseLEFTS (at, cursor—1) +kS+MID$ (a%, cursor) < 

PRINT MID®(a$,cursor):GOTO Getkey< 

END IF< 

IF ke31 AND cursor>® THEN *Cursor left< 
cursor=cursor—-1 < 

ELSEIF k=38 AND cursor<striength THEN "Cursor righ 
te 

eursorscursort+l< 

ELSEIF &@127 THEN "Delete entry< 
at="":cursorsd:strlength=9 <€ 

ELSEIF «=@ AND curser>@ THEN °Backspace key< 
cursorecursor—-1:strlength=strlength~-1¢ 

a$*LEFTS (a$, cursor) +MID6¢(a%,cursor+2) € 

END IF¢ 

BOTO Print.line< 

Done: < 

LOCATE y,x€ 

PRINT inputetring$+SPACES (max ] engthZ-LEN (inputstrin 
ghr< 

END SUB< 

€ 

SUB Box (wide%, high%, berderZ, made) STATIC< 
*"wide% and high% set size expressed as number of ch 
aracter sé 

*border% is to be given as number of pixels<¢ 
*mode% -— use @ for pattern fills 1 to invert areac 
*mode% - use 2 for area outline; 3 to fill area wit 
h foreground color< 

yeCSRLINSS-9~border%syi=y:IF yi<@ THEN y1=8< 

x=POS (6) $8-9-border%:x1=xsIF x1<@ THEN x19< 

x2=u +wideZse+14+2aborder% < 


152 


ee a 


C Co 


{ 


BASIC Programming 


—~ IF x2>=WINDOW(2) THEN x2=WINDOW(2)-1 < 
‘ y2eythighisa+it2eborder% < 

IF y2>=WINDOW(3) THEN y2qWINDOW(3S)-1¢ 

IF x1>%2 THEN xiex2 ¢ 
IF yi>y2 THEN yisy2z< 
' IF mode%=2 THEN LINE (xt,y1)—(x2,y2),,brEXIT SUBS 
IF modeX=3 THEN LINE (x1,y1)—(x2,y2),,b#2EXIT SUBS 
AREA (x1,y1)1AREA (x2,y1) AREA (x2,yZ2)SAREA (x1,y2) 
« 


- 
‘  AREAFILL modeax< 
END SUB< 
€ 
im 
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Amiga Math 
Graphics 


Warren Block 


Is math boring? Before you answer, take a look at 
this Amiga BASIC program. It creates graceful, 
multicolored graphic designs based on a variety of 
interesting mathematical functions. 


As one of my first Amiga programming projects, I decided to 
convert several Apple I+ hi-res graphics routines to run on 
my new machine. Originally, all these routines were written as 
one-liners: That is, the entire program would fit (just barely, 
sometimes) on one BASIC line. “Amiga Math Graphics” com- 
bines all of them into a single program. At the very least, 
these routines demonstrate the speed and power of the Amiga, 
while creating a pleasing visual display. At their best, perhaps 
they will convince you to explore the field of microcomputer 
graphics—a field which many people avoid because it seems 
difficult. Pictures are a fundamental part of communication, 
and being able to use graphics on the computer will improve 
your ability to communicate through that medium. 

Type in the program and save a copy before you run it. 
The small « character indicates where each program line ends. 
Don’t try to type this character—we deliberately chose one 
that’s not on the Amiga keyboard. The « character merely 
shows where you should press RETURN to end one program 
line and start another. 


Labeled Subroutines 

Although the routines in this program were originally one- 
liners, it seemed a shame to keep them that way when Amiga- 
BASIC makes it so easy to write neat, readable code. Each 
routine is marked with a descriptive label. Let's look at each of 
them in turn. 
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RightOvals. The basic formula used in this routine forms 
the basis for several different plotting routines. They all in- 
volve drawing a line from the perimeter of one oval to the pe- 
rimeter of another. in this case, the line is drawn from a point 
on the first oval to a point halfway along the other. 

SideOvals. Only minor changes were made to RightOvals 
to produce this interesting display. The second oval was tilted 
with respect to the first, and the line is plotted with an offset 
added to the x coordinate of the second oval. 


Scaling Graphic Shapes 

When the trigonometric functions sine and cosine are used for 
graphics, a problem arises because both of these functions re- 
turn only values between 0 and 1. Without scaling (adjusting) 
the figures to fit the computer's display, you would see only 
three or four pixels in the middle of the screen. Scaling the 
display involves multiplying a set of coordinates by a constant 
amount. However, if you multiply both the x (horizontal) and 
y (vertical) coordinates by the same amount, the graph appears 
to be squashed horizontally on the screen. This occurs because 
the Amiga’s aspect ratio (the ratio of horizontal to vertical 
pixels) is greater than 1. In plain English, there are more pixels 
across the screen than there are from top to bottom. To adjust 
for the aspect ratio, you must make the horizontal scaling fac- 
tor larger than the vertical factor. 

Other factors influence aspect ratio, including the type of 
monitor you have and the physical shape and relative loca- 
tions of the pixels it displays. Some experimentation is re- 
quired to find the best scaling values for any given display. In 
this program, the R variables (R1, R2, and so on) set the scal- 
ing factors for various routines, By changing these values, you 
can squash the shapes vertically or horizontally. 

TwistedBand. Using a minor variation on the double-oval 
effect, this routine creates a display that looks remarkably like 
a twisted loop of paper. The only real difference from 
SideOvals is that an offset is added to the y coordinate of the 
second oval, not to its x coordinate. 

MultiLobe. This routine employs a common polar func- 
tion which involves multiplying an angle, theta, by a fixed 
constant, then using this new value to compute the R value 
(theta and R are discussed at the end of this article). The effect 
is that of several squashed, distorted lobes instead of a plain 
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“Amiga Math Graphics” 
creates these graceful 
shapes with short routines 
based on polar functions, 


circle. By setting the variable Lobes to 4, eight lobes are 
drawn. Try changing Lobes to different values (including 
nonintegers) for some interesting variations. 


Show Your Colors 

Before you bought an Amiga, you may have heard that it can 
display 4096 different colors. The low-resolution graphics 
screen lets you display as many as 32 different colors at once. 
If you’re familiar with earlier computers, the Amiga’s color 
system may seem confusing at first. On a Commodore 64, for 
example, color 2 is always red, and so on. But the Amiga, like 
the PC/PCjr, allows you to assign any color to color 2. The 
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PALETTE statement allows you to define color 2 as black, ma- 
genta, or whatever you like. The color number simply provides 
a means for referring to that color—however you define it, 

To use PALETTE, imagine that you have three cans of 
paint: one red, one green, and one blue. By mixing various 
portions of these cans together, you can create almost any 
conceivable color. For example, to make a bright red, take 90 
percent of the paint in the red can and mix it with 20 percent 
of the paint in the green can (you don’t need any blue). By co- 
incidence, this is just the way the PALETTE statement works. 
The statement PALETTE 5,.90,.20,0 assigns a bright red color 
to color 5. (Strictly speaking, color mixing in Amiga BASIC is 
more like mixing colors of light than colors of paint. Thus, the 
statement PALETTE 5,1,1,1 sets red, green, and blue to maxi- 
mum intensity, creating a white color. If you mix red, green, 
and blue pigments of equal intensities, the result is a very 
dark brown or black.) 

SpiralCone. Using a method similar to that used by 
MultiLobe, this routine multiplies the theta value by 3, result- 
ing in a six-lobed figure. However, only the x coordinate for 
this figure is used. The y coordinate is calculated using the 
normal value of theta. A conelike shape is formed by drawing 
all lines from the center of the display to the calculated points. 

SideSpiralCone. This is merely SpiralCone drawn side- 
ways, with different scaling values. The difference in appear- 
ance is substantial enough to prevent most viewers from 
detecting the similarities. 

The last two routines in the program rely on similar func- 
tions, but produce patterns that look very different on the 
screen. 

Circles. This routine defines a small circle surrounded by 
a larger one; then it picks 6 equally spaced points on the inner 
circle. The final design is created by drawing a line from each 
of those points to 20 or so equally spaced points on the outer 
circle. 

Spikes. Although this routine looks nearly identical to 
Circles, the shape it draws is completely different. 


There’s a System to This 

You can enjoy and experiment with this program without un- 
derstanding the math that underlies the graphics. For those 
who are interested, here’s a further explanation of how it works. 
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In the field of mathematics, there are many systems for 
expressing the location of a point in a plane. Generally, the 
center of the system is referred to as the origin. The origin is 
simply a reference point; the location of all other points is de- 
fined with respect to the origin. 

Most people are familiar with the Cartesian coordinate 
system, in which the location of any point is expressed in 
terms of x and y coordinates. The x value represents the 
point’s horizontal distance from the point of origin. Similarly, 
the y coordinate represents the point’s vertical distance from 
the origin. 

The Cartesian system works well for representing two- 
and three-dimensional shapes on a two-dimensional surface 
such as the computer's display screen. However, the polar co- 
ordinate system is much more convenient when you're using 
trigonometric functions such as sine and cosine. In this 
scheme, a points location is expressed as a distance from the 
origin (conventionally labeled R) and an angle (usually labeled 
theta, or with the Greek letter 6) from a reference line. 


Polar Functions 

The routines in this program are all based on polar functions. 
Since Amiga BASIC commands use Cartesian coordinates 
(roughly—see below), it’s necessary to convert from polar to 
Cartesian coordinates. In general, this operation can be per- 
formed by the expressions X=R*COS(theta) and Y=R*SIN 
(theta). 

There are a few difficulties in adapting the graph of a po- 
lar function to a computer display. The easiest problem to 
allow for is the fact that most graphics displays (including the 
Amiga’s) use an upside-down Cartesian system: That is, a 
point’s y coordinate specifies how far down the screen the 
point lies—the exact opposite of the normal Cartesian system. 
Since all of our shapes are vertically symmetrical, this problem 
can simply be ignored. 

Another difficulty arises because the Amiga’s display does 
not allow for negative coordinates. The Amiga’s origin point is 
in the upper left corner of the screen, not the center of the 
viewing area as in the Cartesian system. This can easily be 
corrected by considering the middle of the display to be the 
origin. In the calculations, ail this involves is adding an x and 
y offset to the points you wish to plot. 
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~ Amiga Math Graphics 
i | The teft-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


ps: MathGraphics:< 
\ GOSUB Initialize< 
? Repeat until the user presses a key. 


< 
“S| WHILE INKEYS=""< 
' * Madule 1:RightOvals < 
R1=t50€ : 
< 
Inc=Pi /@4¢ 
FOR Theta=@ TO 2*TwoPi STEP Inc € 


X£=FNPol ar X (Ri, Theta) < 
Y1=FNPolar Y (R2, Theta) < 
X2=FNPol ar X (RS, ThetatPi) € 
Y2=FNPol ar Y (R4, ThetatPi) € 
CINE (X2, ¥2)~(X1, ¥1), INT (RND&S1) +1 € 
NEXT<€ 
Pause<¢ 
* Module 2:SideOvals-—< 
7 Game thing, only different.<€ 
R1i=159¢< 
R2=35¢€ 
R3=65 < 
R4=85<¢ 
Inc=Pi /64¢ 
Of fset=Pi /3<¢ 
FOR Theta=@ TO 38TwoPi STEP Inc¢€ 
XLSFNPolarX (R1, Theta) <€ 
Yt=FNPol ar Y (R2, Theta) € 
X2=FNPol arX (RS, Theta+Offset)< 
Y2=FNPol ar Y (R4, Theta) € 
LINE (X1, ¥1)—(X2, ¥2), INT (RNDSS1) +1¢ 
fm  ONEXT€ 
tod Pause< 
” Module 3: TwistedBand< 
’ Yet another variation on the double oval theme.< 
R1=159¢ 
R2=35<¢ 
R3=65 < 
R4&=85< 
a Inc=Pi /64€ 
Of fset=Pi /3€ 
FOR Theta=@ TO 3%TwoPi STEP Inc¢ 
fami X1=FNPolarX(R1, Theta)< 
yak YL=FNPolarY (R2, Theta)< 
X2=FNPO1 ar X (RS, Theta) < 
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Y2=FNPolar Y (R4, Thetat+Offset)< ane 
CINE (X12, Y¥1)—-¢€X2,¥2), INTCRNDSS1)+1¢ { 
NEXT< 

Pause¢ 

* Madule 4:Multilobe¢ t 
R1=169¢ 

Inc=Pi /12B¢ 

Lobes=4< = 
FOR Theta=@ TO 24TwoPi STEP Inc¢ eh 
R2=R1 SIN (Laobes*Theta) < 

X1=FNPol arX {R2, Theta) < 

Y1=FNPol ary (R2, Theta) € 

LINE (XCenter, YCenter )-(X1,Y1), INT (RND&31) +1€ 

NEXT€ 

Pause< 

? Module 5: SpiralCone< 

R1=199¢ 

R2=85¢ 

Inc=Pi /169¢€ 

Lobes=3< 

FOR Theta=9 TO 2*%TwoPi STEP Inc¢ 

X1=FNPol arX(R1, ThetatLobes) ¢ 

V1=FNPol ar Y (R2, Theta) < 

LINE (XCenter, YGenter)—(X4,Y1), INT(RND#31) +1€ 

NEXT€ 

Pauseé 

* Module 6:SideSpiralConeé 

Rt=139¢€ 

R2=BG< 

Inc=Pi/169¢ 

Lobes=3<¢ 

FOR Theta=@ TO 2%TwoPi STEP Inc¢ 

Xi=FNPo} arX (R1, Theta) < 

Y1=FNPol arY (R2, ThetatLobes) < 

CINE (xXCenter , YCenter)—(X1,Y1), INT(RND&31) +1€ 

NEXT€ 

Pause<¢ 


* Module 7:Circles¢ 
R1=115¢ 


(~ 


Thetal=6 TO TwoPi STEP Inci< ‘ 
Thetaz= 9 TO TwoPi STEP Inc2<¢ u 
X1=FNPol arX (Rt, Theta2)< 

Y1=FNPol ary (R2, Theta2) € 

X22FNPol arX (R3, Thetai)< Le 
Y2=FNPol ary (R4, Thetal)< 

LINE (X1,¥1)-(X2,¥2), INT (RNDS31) +1¢€ | 


} 


ote 
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NEXT€ 

NEXT 

Pauseé 

> Madule &:Spikes¢ 


R2=85< 
RI=49¢ 


“3 Inci=Pi/3€ 
Inc2=Pi /18¢ 
FOR Thetai=9 TO TwoPi STEP Incié¢ 
FOR Theta2= @ TO TwoPi STEP Inc2¢€ 
X1=*FNPol ar X(R1, Theta2) € 
Y1=FNPolarY(R2, Thetal)<€ 
‘NPol ar X(R3, Thetal) < 
Y2=FNPol ar Y (R4, Theta2) € 
LINE (X1,¥1)~(X2,¥2), INTCRND&S1)4+1¢€ 
NEXT 
NEXT€ 
Pause¢ 
WEND< 
* Shut everything down and quit.< 
WINDOW CLOSE 2 < 
SCREEN CLOSE 2¢ 
WINDOW OUTPUT 1¢« 
END< 
€ 
SUB Pause STATIC€ 
FOR Delay=1 TO 5@@9< 
NEXT<€ 
cLS<¢ 
END SUBE¢ 
< 
Initializes<¢ 
* Set up a 32 color low-res screen.< 
SCREEN 2,326, 209,5,1¢ 
— WINDOW 2,"AamigaBASIC Graphics", (9,0)— (297,185) ,23,2 
€ 
q cLS¢ 
* Color 9 (background) is black.<€ 
PALETTE 9,9,G,G< 
* Set up the other 31 colors as random combinations 
-€ 
FOR L=1 TO 31 < 
— = PALETTE L,RND,RND, RNDS 
S  NEXT< 
? Keep the random sequence random.< 
RANDOMIZE TIMER< 
tol ” Define constants.¢ 
3 Pi=3. 14159 € 
TwoPi=Z2aPié 
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XCenter=151< 

YyCenter=93< 

* Define polar to Cartesian conversion functions. <€ 
DEF FNPolar X (R, Theta) =R&COS (Theta) +xXCenter< 

DEF FNPolar Y (R, Theta) =R*SIN( Theta) +¥Center< 

RETURN < 
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Requester Windows 
in Amiga BASIC 


Tom R. Halfhill 


Add your own custom requester windows to any 
Amiga BASIC program. Like dialog boxes on the 
Macintosh, requester windows allow your programs 
to flag errors or request confirmation before carrying 
out important functions. 


Amiga BASIC is the most powerful BASIC interpreter supplied 
with any personal computer on the market. Written by Micro- 
soft, it combines in a single language almost every feature 
found in IBM PC Advanced BASIC plus Microsoft BASIC for 
the Macintosh. In fact, many IBM BASICA and Macintosh 
BASIC programs will run on the Amiga with minor modifications, 

However, Amiga BASIC does lack two key statements 
found in Macintosh BASIC: DIALOG and BUTTON. Both are 
important for writing BASIC programs which retain the 
mouse-and-window user interface common to the Macintosh 
and Amiga Workbench. Fortunately, both commands can be 
simulated fairly easily with Amiga BASIC’s WINDOW and 
MOUSE statements. 

In Macintosh BASIC, the DIALOG command lets a pro- 
gram open a dialog box (a small window) like those displayed 
by the Macintosh’s operating system whenever the user must 
choose between two or more options. Dialog boxes also flag 
errors and alert users when they’re about to activate a function 
that has irreversible consequences—such as quitting a program 
without saving the data on disk. For example, if the user pulls 
down a menu and selects Quit, a dialog box might open up 
and ask, “Quit program? (Data file not saved.) Below this 
message is usually a pair of small boxes or circles called but- 
tons which might be labeled OK and CANCEL. Pointing and 
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clicking the mouse on the OK button exits the program; point- 
ing and clicking on the CANCEL button cancels the Quit func- 
tion and returns to the main program so the user can save his 
or her data if desired. 

In Amiga BASIC, the DIALOG and BUTTON commands 
must be simulated by a routine that uses the WINDOW and 
MOUSE statements, For greater convenience, the routine can 
be written as a subprogram, another advanced feature included 
in Amiga BASIC. Subprograms are similar to subroutines, ex- 
cept they can have local variables, These are variables which 
are independent of the main program. For instance, if your 
main program uses a variable X for some purpose, a subpro- 
gram can also use a variable named X, and it is treated as a 
separate variable. If the subprogram changes the value of its 
variable X, the main programs variable X is unaffected, and 
vice versa. On the other hand, a subprogram can also specify 
shared variables, sometimes known as global variables—those 
which are common to both the subprogram and the main 
program, 

A major advantage of subprograms is that you can build 
up a library of useful routines on disk and add them to any 
new programs you write. This saves you the trouble of writing 
the same subprograms again and again. Although you can do 
the same thing with ordinary BASIC subroutines, there’s al- 
ways the chance that a subroutine variable might conflict with 
an identically named variable in your main program. Since 
subprogram variables are local, you're freed from this worry. 
Subprograms are truly programs within a program. 


The Requester Subprogram 

On the Amiga, dialog boxes are called requesters. Probably the 
most frequently encountered requester is the one that pops up 
when the Amiga asks you to insert a different disk. For the 
sake of consistency, an Amiga requester generally appears as a 
small window in the upper left corner of the screen, has a title 
bar labeled System Request, has two or three buttons, does 
not have a resizing gadget or close gadget, and cannot be 
moved elsewhere on the screen. 

The “Requester Window Subprogram” listed below dupli- 
cates most of these features. It creates a window that appears 
in the upper left corner of the screen (or up to the full width 
of the screen in low-resolution modes); the window has a title 
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bar labeled Program Request (to distinguish it from System 
Request windows); there is no resizing gadget or close gadget; 
and the window cannot be moved elsewhere on the screen. 
Unlike system requesters, this requester always displays two 
buttons, and they’re always labeled OK and CANCEL. 

The subprogram lets you display one or two lines of your 
own text in the Program Request window. The maximum 
number of characters allowed in each line depends on whether 
the Amiga has been set for 60- or 80-column text with the 
Preferences tool. If Preferences is set for 60 columns, each re- 
quester line can be up to 31 characters long. If Preferences is 
set for 80 columns, each line can be up to 39 characters. (You 
can adjust the subprogram for either mode by changing a sin- 
gle program statement; see the remarks in the listing.) If you 
try to display a line of text which exceeds these limits, the 
subprogram leaves off the extra characters, Since you won't 
know how Preferences is set if you’re writing programs that 
might be used by other people, it’s safest to assume 60 col- 
umns and restrict each line of your message to 31 characters. 

Opening a Program Request window is this simple: 
request1$=“This is the first line.” 
request2$=“This is the second line.” 

CALL Requester 


The two lines of your message are defined in the string 
variables request1$ and request2$, and the CALL statement 
runs the subprogram (similar to GOSUB). The subprogram 
opens the requester window and waits for the user to click on 
the OK or CANCEL button. Clicks outside the buttons are ig- 
nored, although a click outside the requester window itself de- 
selects it as the active window. It can be reselected, of course, 
by clicking within the window. 

If the user clicks on OK, the subprogram returns a value 
of 1 in the variable answer. If the user clicks on CANCEL, an- 
swer equals 0. In either case, the subprogram closes the re- 

_ quester window after the button click and passes control back 
to the line following the CALL Requester statement. By testing 
answer, your program can branch to different routines to han- 
dle the user’s response as required. 
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Hints for Use 


Here’s an example. Suppose your BASIC program sets up a 
Project menu with a Quit selection (a consistent feature in 
Amiga software). When your MENU statement detects that 
Quit has been selected, it can GOSUB Quit: 
Quit: 

MENU OFF:CLS 

requestl$=“Quit program?” 

request2$="(OK exits to Workbench or CLL)” 

CALL Requester 

IF answer=0 THEN RETURN 

SYSTEM 


If the user selects Quit by accident or changes his mind, 
he can click on CANCEL and no harm is done—the Quit rou- 
tine merely RETURNs. Otherwise, a click on OK stops the 
program and exits BASIC with the SYSTEM command. Of 
course, you could also include a check to see if any data cre- 
ated with the program has been saved, and if necessary, 
prompt the user to save it before quitting. 

There are only two more details to keep in mind when 
using the requester routine. First, the WINDOW statement 
near the beginning of the subprogram opens WINDOW 2. If 
there’s a chance that your program might already have two or 
more windows open when the requester is called, change this 
statement to WINDOW 3, or WINDOW 4, or whatever is nec- 
essary to avoid a conflict. 

Second, the WINDOW statement defaults to the primary 
(Workbench) screen. That means the requester window always 
pops up on the primary screen. If your main program creates a 
secondary screen with the SCREEN statement, you'll want the 
requester window to appear on that screen instead of the pri- 
mary screen. Otherwise, the requester will be invisible. To 
make the requester window appear on your program's second- 
ary screen, append the screen’s number to the WINDOW 
statement. 

For instance, if your program creates a secondary screen 
with a statement such as this: 


SCREEN 1,320,200,1,1 
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change the WINDOW statement in the requester subprogram 
as follows: 


WINDOW 2,“Program Request”,(0,0)-(311,45),16,1 
This makes sure the requester will be visible. 


Requester Window Subprogram 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line, Do not attempt to type the arrows themselves. 


Requester Sub: < 

SUB Requester STATIC< 

SHARED requesti1$,request2%, answers’ Global variable 
8.€ 

* Add screen parameter if needed to next line.< 
WINDOW 2,"Program Request", (9,0)—(311,45) ,16< 

> If Preferences is set for 68 columns,<¢ 

* use maxwidth=INT(WINDOW(2)/10) for next lines< 
* otherwise use maxwidth=INT (WINDOW (2) /8) .€ 
maxwidth=INT (WINDOW(2)/8) < 

request 1¢9_EFTS (request i$, maxwidth)< 

request 2¢@LEFT$ (raquest2$%, maxwidth)< 

PRINT requesti$:PRINT request2¢< 

* This section draws buttons. < 

LINE (12,28)-(S8,36),1,b¢ 

LINE (152, 20)-(228,38),1,b¢ 

LOCATE 4,1:PRINT PTAB(2@);"OK°3< 

PRINT PTAB{16@) 5 "CANCEL" < 

* This section gets input.< 

reqloop:< 

WHILE MOUSE (@)=@:WEND:” Wait for button click. < 
m1=MOUSE (1) sm2=MOUSE (2) < 

IF mi>12 AND m1<S@ AND m2>29 AND m2<36 THEN< 
answersir’ OK was selected.< 

LINE (12,20)-(58,38),1,6f2" Flash OK box.< 

WHILE MOUSE (®)<>@:WEND:* Wait for button release.< 
WINDOW CLOSE 2:EXIT SUB< 

ELSE< 

IF m1>152 AND m1i<228 AND m2>2@ AND m2<38 THEN< 
answer=0:* CANCEL was selected.< 

QGINE (152, 20) -(228,38),1,6f2’ Flash CANCEL box.< 
WHILE MOUSE (@)<>@:WEND:" Wait for button release.<¢ 
WINDOW CLOSE 2:EXIT SUB< 

ELSE< 

GOTO reqioop<e 

END IF¢ 

END IF< 

GOTO reqloap< 

END SUB< 

€ 
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Meet ED, the 
AmigaDOS Editor 


Christopher J. Flynn 


AmigaDOS—the command-driven operating system 

which underlies the graphics-oriented Workbench— 

contains two text editors. Although they aren’t full- 

fledged word processors, these editors are ideal for 

entering program source code, creating batch files, 
and even writing short documents. 


The Amiga comes with more software than most people real- 
ize. Besides Amiga BASIC, Electronic Arts’ Kaleidoscope, Mind- 
scape’s Amiga Tutor, the RAM disk, the speech synthesizer, 
the printer drivers, the icon editor, the calculator, the clock, 
and numerous demo programs, there are also three complete 
text editors. Most people know about the Notepad because it’s 
available from the Workbench. But the other two text edi- 
tors—ED and EDIT—don’t show up as icons and must be run 
from an AmigaDOS CLI (Command Line Interface) window. 

The most powerful of these text editors is ED. Although it 
doesn’t handle multiple fonts and styles like the Notepad, it 
has many more editing functions and is the ideal tool for writ- 
ing AmigaDOS batch files or program source code. EDIT, on 
the other hand, is a little more specialized. It is a sequential 
file editor. In practice, EDIT is best used to make changes to 
an existing disk file. You'll probably prefer to use ED for com- 
posing new text. 

We'll be exploring ED version 1.10. Future releases of ED 
may change things around a little and introduce new features, 
so keep this in mind. 


Starting ED 

Where is ED hiding? Even if you peek through every nook 
and cranny of the Workbench, you will not find an icon for 
ED. It turns out that ED is actually an AmigaDOS command. 
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This means that you have to start ED from a CLI window. 

If you’ve never used a CLI window before, your first step 
will be to activate the CLI. Open the Workbench and check 
the contents of the System drawer. If CLIs are activated, you'll 
see a cube-shaped icon labeled CLI in this drawer. If the icon 
is not present, point to the Preferences icon and double-click 
the mouse’s left button. Look for the CLI On/Off selector on 
the Preferences screen and click on the On box; then exit Pref- 
erences by specifying Save (not Use). Now when you reopen 
the System drawer, it should contain a CLI icon. If not, go 
back to Preferences and make sure CLI is turned on, (If you 
find yourself using the CLI often, you may want to drag the 
CLI icon from the System drawer into the main Workbench 
window to avoid the extra step of opening the System 
drawer.) To open a CLI window, double-click on the CLI icon. 
Now you'll have a window in which you can type AmigaDOS 
commands. 

ED can be started in two ways: 


ED filename (SIZE 1] 
RUN ED filename [SIZE n] 


The first method starts ED from the CLI which you've just 
activated. It ties up the CLI until you're finished with ED, In 
other words, you have to leave ED before issuing other Amiga- 
DOS commands. When you specify RUN ED, AmigaDOS 
automatically starts another CLI task for you and starts ED in 
this new CLI. Thus, you can temporarily suspend ED by mov- 
ing the mouse to another window. You can go back to the 
original CLI and issue other AmigaDOS commands. If you are 
adventuresome, you can even have multiple ED sessions in 
progress at the same time. (What you’re really doing is multi- 
tasking more than one AmigaDOS command simultaneously.) 

In either case, the ED command requires a filename. You 
can either supply the name of an existing disk file you wish to 
edit, or create a new file by specifying a new filename. Re- 
member that Amiga filenames can be up to 30 characters long. 
So, choose filenames that take advantage of this feature. It 
helps you recognize your files later on. 

There is a SIZE option for the ED command. (Don’t type 
in the brackets, by the way. Brackets just signify options.) A 
text document must be able to fit entirely in memory. ED just 
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cannot handle a document partly on disk and partly in mem- 
ory. The SIZE option gives you a way of telling ED how much 
memory you want to set aside for working on the document. 
If you don’t type in SIZE, ED will set aside 40K for you. The 
maximum SIZE is determined by the amount of memory you 
have. 

Here are a few examples of commands for starting up ED: 


ED GROCERY-LIST 
ED WAR-PEACE-BOOK-REPORT SIZE 90000 


When SIZE is used, type out the number. Note that 
90,000 bytes is typed as 90000 and not as 90,000 or 90K. 


Leaving ED 

When ED has been successfully started, its display occupies 
the entire screen. So, how can you return to the CLI? There is 
no close gadget on ED’s window. There is nothing to point at 
and click. Instead, ED requires either a Quit or an Exit com- 
mand, Press the ESC (escape) key. An asterisk appears on the 
last line of the display. Type either Q for Quit or X for Exit 
and then RETURN. That's all there is to it. 

There is a difference between Quit and Exit. Q leaves the 
editor without saving the document to disk. Anything you 
have typed will be lost. ED recognizes that this can be quite 
an inconvenience, so if you do type Q, ED displays the follow- 
ing warning message: 

Edits will be lost - type Y to confirm: 


Pressing Y at this point gets you out of ED, and no text is 
saved, If you type anything else, ED lets you continue work- 
ing on your document. 

ESC-X, the Exit option, does save the document on disk, 
using the filename you specified when you started ED. No 
messages are given. When ED finishes, you're back in the CLI 
and can then proceed with other AmigaDOS commands. 
When you've finished with the CLI, type ENDCLI. If you've 
got only one CLI window running, this returns you to the 
Workbench. 
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ED Commands 

There are two types of editor commands in ED. The more di- 
rect ones are called immediate commands because you can enter 
them while typing text. Examples are line insertions and dele- 
tions. Immediate commands are always CTRL key combina- 
tions. The other category—extended commands—can be typed 
only when in the command mode. ESC-Q and ESC-X are ex- 
amples. Pressing ESC opens the lowest display line on your 
screen for these extended commands. 

When ED starts, it positions the cursor at the upper left 
corner of the screen. If you are working on a new document, 
the screen is blank. Otherwise, the screen shows the first page 
of the document. 

If you're creating a new document, just start typing. No- 
tice what happens when the text approaches the right side of 
the screen. If a word is too long to fit on the remainder of the 
line, ED pulls the word down to the next line, You can keep 
typing without being concerned about hitting RETURN at the 
end of a line as you would on a typewriter. 

There are several ways of correrting typos. The BACK 
SPACE key deletes the character to the left of the cursor. DEL 
deletes the character under the cursor. Table 1 lists other ways 
of deleting text. 

ED is a full-screen editor, so you can move the cursor 
wherever you want with the arrow keys. To insert text, posi- 
tion the cursor at the desired location and begin typing. Notice 
that ED does not have a strikeover mode. Unwanted text has 
to be deleted—you can’t just type over it. 


The Insertion Gotcha 

Try typing a few fairly long lines. Now, move the cursor to 
the beginning of the text. Start typing again. The existing text 
on the current line is moved to the right off the edge of the 
screen. During insertions, ED neither brings the excess text 
down to the next line nor enforces margins. 

The disappearing text is not lost, however. ED has made 
one long line. The long line can be split at any point by plac- 
ing the cursor where you want and pressing RETURN. If 
you're working with ordinary text, not source code or batch 
files, this may leave gaps of several spaces between sentences. 
To clean up the appearance, the extra spaces will have to be 
removed. Some other lines may need adjusting as well. 
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Using the Extended Commands 

Extended commands (Table 2) can be typed only when ED is 
in the extended-command mode, entered by pressing the ESC 
key. The cursor appears on the last line of the display. At this 
point, you can type one or more extended commands. It’s 
quite handy to be able to give ED a series of commands sepa- 
rated by semicolons (;), When you press RETURN, ED acts on 
the command or commands you've requested. 

Extended commands can move the cursor, mark blocks of 
text for certain operations, and perform searches and ex- 
changes. Some of the operations are tricky and require care. 
Cursor commands apply only to the cursor position in the text 
and not to the command line. This is fine except that you can’t 
see the cursor in the text. You have to remember where the 
cursor is before you use some of the extended commands, 

Sections of text can be marked by block start (BS) and 
block end (BE) commands, Blocks can be deleted, copied else- 
where in the document, or saved to disk, Marking a block in- 
volves moving the cursor to the first line in the block and 
executing the BS extended command. The end of the block is 
marked similarly with BE, Unfortunately, there is no visible 
indication of the defined text. Be very careful of cursor move- 
ments, The only help ED offers is the show (SH) command. It 
displays the first and last line of the block and some other 
information. 

Text search-and-exchange operations work without a 
hitch, You can search forward (F) or backward (BF) through 
the document. You can exchange (E or EQ) one text string for 
another. Lowercase text can be treated as matching uppercase 
text (UC), or it can be treated as not matching (LC). 

The repeat (RP) command is often used for exchanges. RP 
causes the command following it to be executed repeatedly 
until something (an error, for example) stops it. Thus, RP E 
carries out multiple exchange operations. Here is an example: 


T; RP E /Compute/COMPUTE/ 


Here, the typing of COMPUTE is being corrected. T 
moves the cursor to the top of the document so that the entire 
document will be examined. RP precedes the exchange com- 
mand. Note that the two text strings are delimited by slashes. 
This is ED’s convention when text strings are used. A “Search 
failed” error occurs when Compute can no longer be found in 
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the text. This halts the repeat command, and the entire docu- 
ment will have been corrected. 

The save command (SA) saves the document to disk with- 
out exiting ED. You should do this periodically to prevent di- 
sasters in the event of a power failure. 

Overall, ED is an excellent general-purpose text editor. 
You can use it when programming, since it works with any 
language that accepts ASCII text files as input (including 
Amiga BASIC). ED can also prepare data files or help you 
write short letters and notes. It’s not a fancy word processor, 
but it can handle smaller, less complex tasks quite well. 


Table 1. ED Immediate Commands 


Command Description 


Special Keys 

BACK SPACE Deletes the character to the left of the cursor. 

DEL Deletes the character under the cursor. 

ESC Switches to extended-command mode. 

RETURN Ends the line at the cursor and starts a new line. 

TAB Moves the cursor right, adding spaces, to the next 
tab position. 

up-arrow Moves the cursor up one line. 

down-arrow Moves the cursor down one line. 

left-arrow Moves the cursor one character position to the left. 


right-arrow Moves the cursor one character position to the right. 
Control Key Combinations 


CTRL-A Inserts a line after the line on which the cursor is 
located. 

CTRL-B Deletes the line on which the cursor is located. 

CTRL-D Scrolls the text down 12 lines toward the beginning 
of the document. 

CTRL-E If the cursor is at the top of the screen, moves the 


cursor to the bottom of the screen. If the cursor is at 
the bottom of the screen, moves the cursor to the top 
of the screen. 

CTRL-F Switches the case (upper- to lower- or lower- to 
upper-) of the character under the cursor. 

CTRL-G Repeats the last extended command which was 
issued. : 

CTRL-H Deletes the character to the left of the cursor. 
Equivalent to the BACK SPACE key. 

CTRL-I Moves the cursor right to the next tab position. 
Equivalent to the TAB key. 
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CTRL-M 
CTRL-O 


CTRL-R 
CTRL-T 
CTRL-U 


CTRL-V 


CTRL-Y 
CTRL-{ 
CTRL-] 


Equivalent to the RETURN key. 

If the cursor is on a nonblank character, deletes all 
characters from the cursor to the first space. If the 
cursor is on a space, deletes all spaces from the 
cursor to the first nonblank character. 

Moves the cursor left to the first space after the pre- 
vious word on the current line. 

Moves the cursor right to the first character of the 
next word on the current line. 

Scrolls the text up 12 lines toward the end of the 
document. 

Redisplays (verifies) the screen. Insures that all the 
text is visible and is useful after moving or sizing the 
display window. 

Deletes all characters on the line starting with the 
character under the cursor. . 

Switches to the extended-command mode, 
Equivalent to the ESC key. 

If the cursor is at the start of the line, moves the 
cursor to the end of the line. If the cursor is at the 
end of the line, moves the cursor to the start of the 
line. 


Table 2. ED Extended Commands 


Note: /2/ refers to a single text string ( /this is a string/ ). 
/8/t/ refers to two text strings ( /brown/blue/ ). 


Command 
A /s/ 
B 


BE 
BF /s/ 


Description 

Inserts the string on a new line after the current line. 
Moves the cursor to the end (bottom) of the 
document. 

Places an end-of-block marker at the cursor. 
Searches the document for the string going in a di- 
rection from the cursor toward the beginning of the 
document (backward find). 

Places a start-of-block marker at the cursor. 

Moves the cursor to the end of the current line. 
Moves the cursor one character position to the left. 
Moves the cursor one character position to the right. 
Moves the cursor to the start of the line. 

Deletes the current line. Moves all following lines up. 
Deletes the text marked by start-block and end-block 
markers, 

Deletes the character at the current cursor position. 
Replaces (exchanges) occurrences of the first string 
with the second string. 
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EQ /s/t/ 


SA 


SH 
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The same as E, but asks you to confirm the replace- 
ment each time a match is found. Type Y or N in re- 
sponse to the Exchange ? prompt. 
Extends the right margin, allowing additional text to 
be typed. 
Searches the document for the string going in a di- 
rection from the cursor position toward the end of 
the document (find). 
Inverts the string on a new line before the current 

e, 
Inserts the block of text marked by start-block and 
end-block markers after the current line. 
Inserts the contents of a file before the current line. 
The filename is given by /s/. 
Joins the current line with the next line. This makes 
one new line where there were formerly two. 
Treats upper- and lowercase characters as different 
in searches, 
Moves the cursor to the line number given by 1. 
Moves the cursor to the starting position of the riext 
line. 
Moves the cursor to the starting position of the pre- 
vious line. 
Quits ED without first saving the text. A warning 
message will be given stating that the text may be 
lost. 
Repeats commands. Commands are typed following 
RP. For example, T; RP E /brown/red/ moves the 
cursor to the top of the document. The Exchange 
command is repeated, thus changing all occurrences 
of brown to red. Repeat ends when an error is found. 
In this case, an error occurs after all the changes 
have been made since brown can no longer be found. 
Splits the current line at the cursor location. This 
makes two lines where there was formerly one. 
Saves the document to the file specified by the origi- 
nal ED command. Use SA periodically to make sure 
you have a good copy of the text on disk. 
Shows the text block marked by start-block and end- 
block markers. The block (and any following text) 
will be displayed starting at the top of the screen. 
Shows the filename, tab distance, margin settings, 
first and last lines of any marked text block, and the 
buffer-full percentage. 
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SLn 


SRn 


stn 


WB /s/ 


Sets the left margin to the position specified by n. SL 
affects the margin setting for the entire document, 
New text will be typed within the margins. Existing 
text is not automatically reformatted when the mar- 
gins change. 

Sets the right margin to the position specified by n. 
SR affects the margin setting for the entire docu- 
ment. New text will be typed within the margins. 
Existing text is not automatically reformatted when 
the margins change. 

Sets the distance the cursor moves when the TAB 
key is pressed. 

Moves the cursor to the top of the document. 
Undoes any changes made to the current line. This 
does not restore line deletes (D). It also does not 
work if you have moved the cursor from the current 
line. 

Treats upper- and lowercase characters as equivalent 
for searches (for example, A will match a). 

Writes the text block marked by start-block and end- 
block markers to the file specified by /s/. 

Exits ED, first making sure that the document has 
been saved on disk, 
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Files 


Charles Brannon 


AmigaDOS is more than a console-driven disk 
operating system. By executing a sequence of 
AmigaDOS commands stored in a file, AmigaDOS 
takes on some of the characteristics of a program- 
ming language. Whether you want to simplify repeti- 
tive disk commands or create personalized custom 
commands, batch files further extend the range and 
flexibility of AmigaDOS. 


No matter how easy it is to use a program, the most popular 
programs are those that give users more power. And although 
a program may have scads of powerful commands, the most 
powerful programs are those which let users put the com- 
mands together in new ways—in effect, to write programs. 

Instead of forcing you to always issue commands one at a 
time, a programmable application lets you create a script of 
commands to customize the behavior of the program. Whether 
we're talking about word processing macros, spreadsheet tem- 
plates, relational database languages, or advanced machine 
language, programmability is the real key to software power. 
If you feel limited by a certain range of commands, you can 
combine the commands in new ways to create personalized 
features, just as we combine the vocabulary of English words 
to create a wealth of literature. Why just read when you can 
write? 


Scripts, Sequences, and Batches 
AmigaDOS is more than just a disk operating system—it's a 
programmable system that can process lists of its own com- 
mands as well as individual commands. In effect, AmigaDOS 
is a simple disk-oriented programming language. 

A list of AmigaDOS commands can be stored in a disk 
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file variously known as a script, a sequence, or a batch file. The 
term batch file is most commonly used by those who work 
with PC-DOS, MS-DOS, and CP/M, which are also pro- 
grammable disk operating systems, To keep things straight, 
we'll use batch files synonymously with scripts or sequences. 

Even if you don’t program in BASIC or any other lan- 
guage, you may be interested in learning about AmigaDOS 
batch files. The batch file “language” is simply made up of the 
same AmigaDOS commands you've probably been using all 
along. (For information about AmigaDOS see COMPUTE!’s 
AmigaDOS Reference Guide by Sheldon Leemon and Arlan R. 
Levitan, or COMPUTE!’s Amiga Programmer's Guide.) There are 
also a few AmigaDOS commands designed especially for 
batch files. 

Creating and running batch files is easy. Using a text edi- 
tor, you just type in a list of AmigaDOS commands. Then you 
save the list on disk under a filename. To run the batch file, 
you type EXECUTE filename at an AmigaDOS prompt. Amiga- 
DOS reads the batch file and executes the list of commands, 
just as if you had typed them one by one yourself. 

We won't cover some of the more advanced features of 
batch files, useful only to advanced C and machine language 
programmers. Instead, we'll concentrate on the everyday util- 
ity of batch-file programming. 


A Quick Example 

In a moment, we'll show how to create batch files with ED, 
the AmigaDOS full-screen text editor, but first there's a sim- 
pler way to create a short batch file (see the previous article or 
more complete instructions for using ED). Enter this line at an 
AmigaDOS prompt: 


COPY * TO Hello 


(Note that AmigaDOS commands can be entered in uppercase 
or lowercase.) 

Although nothing seems to happen, AmigaDOS is waiting 
for you to enter some lines. We'll use the ECHO command to 
display a friendly message. ECHO displays any text that fol- 
lows it within quotation marks, just like the PRINT statement 
in BASIC. One difference is that if you want to ECHO only a 
single word, the quotes aren’t necessary. 
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At an AmigaDOS prompt, enter the following text, press- 
ing RETURN after each line: 


ECHO “Hello!” 
ECHO “I am your friend, the Amiga” 
ECHO “personal computer.” 


After the last line, press CTRL-\. The \ key is the one 
to the left of the BACKSPACE key. CTRL- \ tells AmigaDOS 
that you're finished, and that it should finish writing and close 
the file. This key represents EOF, for End Of File. 

To confirm that you’ve typed the file correctly, enter 


TYPE Hello 


You should see the same lines you typed. Now you can start 
this simple program: 


EXECUTE Hello 
This should print on the screen: 


Hellot 
Tam your friend, the Amiga 
personal computer. 


Using ED 

It would be nice to have the Amiga actually speak this greet- 
ing. Rather than type in a whole new file, we'll use ED, the 
screen editor, to make the simple changes we're interested in. 
Enter 


ED Hello 


This runs ED and also loads the batch file named Hello. 
When you start ED, you can give it the name of any file to 
edit. If the filename doesn’t exist, it will be created; otherwise 
the file is automatically displayed on the editor screen. 

We'll make the Amiga speak the ECHO messages aloud 
by taking advantage of the systems built-in speech synthesis 
via the AmigaDOS SAY command (added to AmigaDOS ver- 
sion 1.1), To learn more about SAY, just enter SAY by itself to 
enter an interactive mode with onscreen instructions. 

After you start ED by typing ED Hello, the batch file we 
previously entered should be on the screen, with the cursor at 
the beginning of the first line. ED is a full-screen text editor, 
so you can move the cursor anywhere within the file (but not 
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past the last line). To insert some text, just start typing. The 
DEL and BACKSPACE keys can be used to delete characters. 

Move the cursor to the second ECHO line and press RE- 
TURN. This inserts a blank line. Cursor up to the blank line 
and enter 


SAY HELLO! 


You don’t need to press RETURN at the end of the line, since 
you already did this to open up a line for typing. 
Now cursor to the end of the file and type: 


SAY I am your friend, the Amiga personal computer. 


(Notice that SAY is the only AmigaDOS command that 
doesn’t require you to enclose text containing spaces with 
quotes.) This is how your screen should look: 


ECHO “Hello!” 

SAY Hello! 

ECHO “I am your friend, the Amiga” 

ECHO “personal computer.” 

SAY I am your friend, the Amiga personal computer. 


With the cursor at the end of the file, press the ESC key. 
An asterisk (*) should appear. Press the X key, then RETURN. 
This exits ED and saves your changes back to disk. 

Finally, type EXECUTE Hello to try out your talking 
batch file. 

Although these techniques are sufficient for simple 
editing, ED has dozens of editing commands. For example, 
CTRL-B (press CTRL and B at the same time) blanks out and 
deletes the line the cursor is on. ESC-] RETURN (press the ES- 
Cape and J keys; then press RETURN) joins two lines to- 
gether. For a list of ED commands see the previous article. 


Startup-Sequence 
A special AmigaDOS batch file, called the startup-sequence, is 
executed automatically when you boot up an AmigaDOS or 
Workbench disk by inserting it at the Workbench prompt. 
Startup-sequence normally just displays a message, then 
launches the Workbench and ends the command line 
interface. 

To edit this batch file, enter: 


ED s/startup-sequence 
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This runs ED and calls up the file “‘startup-sequence” 
from the S subdirectory. This subdirectory, which can also be 
accessed as the S: device, is a convenient place for batch files. 
Just as AmigaDOS, by default, searches for AmigaDOS com- 
mands in the C subdirectory, the EXECUTE command first 
looks for a batch file in the S subdirectory. If AmigaDOS can’t 
find the batch file in this subdirectory, it looks for it in the 
current directory. So no matter what your current directory is, 
you can always use your batch file if you place it in the $ di- 
rectory on your startup disk. 

When you first load startup-sequence into ED, you'll see 
something like this: 


ECHO “Workbench disk. Release 1.1” 

ECHO “ “ECHO “Use Preferences tool to set date” 
ECHO "” 

LoadWb 

endcli > nil: 


Since this message appears every time you start up your 
disk, you may want to change the ECHO statements for a 
personalized message. Likewise, if you’d rather use 
AmigaDOS instead of the Workbench, delete the last two 
lines, The “> nil:” sequence makes AmigaDOS throw away 
the output of a command; here, it’s the message “CLI task 1 
ending.” 

Startup-sequence is a good place to put personalized com- 
mands. For example, if you like to keep your command direc- 
tory in RAM for speed and convenience, you could insert 
these lines above the LoadWb line: 


makedir ram:c 
copy c to ram:c all quiet 
ed ramic 


This copies all of the AmigaDOS commands from the C 
subdirectory on the floppy disk into a C subdirectory on the 
RAM disk, It also changes the current directory to the C sub- 
directory in RAM:, so any AmigaDOS commands you type 
from that point on will be loaded from RAM: instead of from 
the floppy. In effect, this turns AmigaDOS into a memory-resi- 
dent DOS, with all commands intrinsic instead of extrinsic. 
AmigaDOS responds much faster this way. However, this also 
uses up quite a bit of memory, so you may want to copy only 
the commands you use frequently. 
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Another useful startup action is to set the date and time. 
You can always do this with the Preferences tool or by open- 
ing a CLI and using the DATE command. However, it can be 
more convenient to enter the date when you first turn on your 
Amiga, allowing all files subsequently saved to be stamped 
with the current date and time. Just insert this line into 
startup-sequence: 


DATE ? 


The ? operator can be used in place of the parameter of a 
command. Instead of specifying the date, ? prompts the user 
to enter the date. It also displays the template for the DATE 
command (TIME,DATE, TO=VER/K:).If you like, use ECHO 
to display your own prompt, and > nil: to discard the template: 


ECHO “Please enter the date and time.” 
ECHO “DD-MMM-YY HH:MM:sS” 
date > nil: ? 


From then on, whenever you boot up from this disk, you'll re- 
spond to the prompt by typing something like this: 


27-jan-86 15:12 
which automatically sets the system clock. 


Variable Parameters 

You can also send special options to your batch file. You enter 
these options on the command line along with the EXECUTE 
command. Just as with variables in BASIC, you can manipu- 
late these parameters symbolically. 

Let’s say you'd like a batch file that gives you complete 
information on a file. It uses LIST to display the information 
about the file, and TYPE to display the file. You would use a 
command like EXECUTE SHOW RODEO to display the file 
RODEO. Use ED SHOW or COPY * TO SHOW to create this 
batch file: 


-KEY name 
LIST <name> 
TYPE <name> 


-KEY (don’t forget the leading period) sets up a name for 
substitution text, Whatever.you typed on the same line with 
EXECUTE is substituted wherever you use <name>. You must 
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use the angular brackets, or LIST and TYPE would look liter- 
ally for the file “name.” 

After creating this batch file, type this at an AmigaDOS 
prompt: 


EXECUTE SHOW S/STARTUP-SEQUENCE 


The result is the same as if you had typed LIST S/STARTUP- 
SEQUENCE followed by TYPE S/STARTUP-SEQUENCE. 
Other AmigaDOS commands let you check to see if the 
user has entered a specific string and check to see if a file ex- 
ists. To prevent an error message, we can check to see 
whether the file exists before we use LIST and TYPE: 


-KEY name 

IF EXISTS <name> 

LIST <name> 

TYPE <name> 

ELSE 

ECHO “<name> does not exist!” 
ENDIF 


Notice the use of IF, ELSE, and ENDIF. Looks like Amiga 
BASIC, doesn’t it? In fact, the AmigaDOS IF-ELSE-ENDIF 
commands function very much like BASIC’s. When the IF con- 
dition is true, AmigaDOS executes the following statements; 
otherwise the following statements are ignored. ELSE executes 
the statements following it only if the preceding IF was false. 
ENDIF cancels conditional processing and returns to executing 
all commands. 


Any Parameters Missing? 

Here’s how to use the IF EQ option to test for the existence of 
a command-line parameter. If there is no parameter, <name> 
is null, so “<name>z” is simply “z’’. We use NOT to reverse 
the test. If the parameter “<name>z” is NOT equal to “2”, 
then we must have a command line parameter. (We can’t just 
test IF <name> NOT EQ “ ”, since EQ requires two param- 
eters, and the null string “ ’’ is not a parameter, but the ab- 


sence of one.) 


-KEY name 

IF <name>z NOT EQ z 
LIST <name> 

TYPE <name> 
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ELSE 

ECHO “You didn’t give me anything to 
SHOW.” 

ENDIF 


Although you can’t use leading spaces in the actual batch 
file, it’s easier to follow the IF-ENDIF structures when you use 
indentation. Just don’t type in the leading spaces. This version 
of the batch file SHOW checks both for the existence of the 
filename and for the presence of the filename parameter: 


-KEY name 
IF <name>z NOT EQ z 
IF EXISTS <name> 
LIST <name> 
TYPE <name> 
ELSE 
ECHO “<name> does not exist!” 
ENDIF 
ELSE 
ECHO “You didn’t give me anything 
to SHOW.” 
ENDIF 


You can use more than one parameter in the .KEY state- 
ment, just as many commands, such as DATE, accept two 
inputs. 

If the user doesn’t enter anything for the parameter, you 
can assign a default value using either .DEF or $. If you use 
-DEF, the default phrase is used throughout the batch file. In 
this example, SHOW displays itself if you don’t give it a 
filename. 


-KEY name 
-DEF s/show 
LIST <name> 
TYPE <name> 


You can use $ to substitute a default value only for the 
current substitution. Several batch commands may use the 
value in different ways, so each command may have its own 
default value. In the following example, LIST displays the 
whole directory if <name> is null, but TYPE types the file 
“TEMP” if <name> is null: 


-KEY name 
LIST <name> 
TYPE <name$temp> 
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Labels and Branching 

You can jump forward to a label with the SKIP command. 
You'd typically use SKIP along with an IF condition if you 
want to skip over a block of statements that shouldn't be exe- 
cuted if the IF was true. You declare the label with LAB. The 
SKIP command can’t skip backward, only forward to a LAB 
statement. You can usually use IF and ELSE, though, to 
accomplish the same thing. 


-KEY name 

IF exists <name> 

TYPE <name> 

SKIP ToMyLou 

ENDIF 

ECHO “<name> doesn’t exist.” 
LAB ToMyLou 

ECHO “Finished.” 


An EXECUTE command can execute another batch file, or 
even itself. This permits backward looping to some degree. 
Nested batch files can be quite handy. You can test and debug 
individual batch programs, then execute them together from a 
master execute script: 


EXECUTE Greeting 
EXECUTE GetDate 
EXECUTE Assignments 


The individual files could themselves contain other EXE- 
CUTE references. 


ASSIGNing Shortcuts 

If youre using EXECUTE a lot, you may grow weary of typing 
it, You can always rename EXECUTE to something short like 
x, but other batch programs may contain EXECUTE state- 
ments, requiring you to rename it again. Instead, you can use 
the ASSIGN command to assign any filename to a device name. 


ASSIGN x: sys:c/EXECUTE 


You can now use x: whenever you want to use the EXE- 
CUTE command. (The prefix sys:c/ makes sure that EXECUTE 
can be found no matter what directory you're in.) 

The device name you create should not conflict with an 
existing one. To get a list of the current assignments, just type 
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ASSIGN. You may want to ASSIGN d: cilist for a convenient 
and quick shorthand for directories (c: is synonymous with the 
C directory). You can then just type d: to get a LIST. 

ASSIGN can be so handy for this kind of thing that you'll 
probably want to include your own sequence of ASSIGN com- 
mands within startup-sequence. If you put your ASSIGN 
statement within startup-sequence, you'll get these assign- 
ments for every session. Just remember that ASSIGN can only 
be used to attach a device name to a particular filename. AS- 
SIGN 4: “cilist quick” doesn’t seem to work. Although LIST is 
a filename in the ¢ directory, the “quick” parameter is not part 
of the filename. 
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Amiga 


Charles Brannon 


A printer is one of those optional but essential add- 
ons for your computer, It lets you reap something 
tangible from your word processor, terminal 
program, spreadsheet, or drawing program. 


Most serial or parallel printers will work with the Amiga. The 
Amiga sports an RS-232 serial port as well as a standard par- 
allel printer port, All it takes is the right cable to link the 
Amiga with almost any printer. 

The commonly available IBM printer cables appear similar 
to Amiga cables except that the end of the cable that plugs into 
the IBM is a DB-25 male connector and the Amiga port is also 
a DB-25 male connector. Since printer cables specifically for 
the Amiga can be difficult to obtain, you might be tempted to 
use a ““gender-changer” (a box or cable with a male connector 
on one end and a female connector on the other) to connect 
the IBM cable to your Amiga. Don’t do this. Such an arrange- 
ment could damage your Amiga or your printer, or both. 

The Amiga parallel port does not use exactly the same pin 
assignments as the IBM port. (Refer to page 7-13 of the Intro- 
duction to Amiga manual for a pinout chart.) Even more impor- 
tant, pin 23 on the Amiga parallel port is a +5-volt power 
supply, while pin 23 on an IBM-type printer cable may be 
connected to voltage ground. If the cable carries this voltage, 
and if the printer connector has a grounded pin at that posi- 
tion, the power supply in your Amiga may be damaged. 

If you have a serial (RS-232) printer connected via the 
Amiga’s serial port instead of the parallel port, a similar cau- 
tion applies: Pins 14, 21, and 23 on the serial port carry power 
supply voltages. (Refer to page 7-12 of the Introduction to 
Amiga manual for a pinout chart.) Since these pins are often 
unused in devices like modems and printers, it may be safe to 
use IBM-type serial printer cables. Check the manual for your 
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printer carefully to be sure that your particular model does not 
make any connection to these pins. Again, a gender-changer 
plug will be required to attach an IBM-style cable to the 

a Amiga serial port. It’s best to check with your dealer before 
nt using a suspect cable. 


im Printer Drivers 

: Once you've hooked up the hardware, you need to “attach” 
the printer to your software. Although every printer manufac- 
turer uses different specifications for software control over 
printing features, the Amiga is capable of adapting to a variety 
of popular printers. 

What complicates things is that every printer has its own 
unique set of codes, even for common effects such as under- 
lining or boldfacing. For example, the Epson MX-80 uses the 
ASCII sequence 27-53 (“ESC-4”) to turn on italics mode, and 
27-54 ("ESC-5”) to turn off italics, On the other hand, the 
Okimate 20, which is similar in many other ways, uses the se- 
quence 27-37-71 (ESC-%G) to turn on italics, and 27-37-72 
(ESC-%H) to turn italics off. 

When an Amiga program wants to print italics, it can’t 
just use the code for one printer model, because the program 
would be incompatible with other printers. Instead of sending 
the actual code for italics, then, Amiga programs send a sym- 
bolic code for italics. If you tell the Amiga which printer driver 
to use, the driver translates these symbolic codes into the ac- 
tual codes for your printer. 

Use Preferences to install your printer driver, following 
the instructions given in Introduction to Amiga, pages 7-6 to 7- 
11, Printer drivers currently exist for the Alphacom Alphapro 
- 101 (no longer in production); Commodore CBM-MPS 1000; 
ms Epson FX-80, RX-80; HP LaserJet/LaserJet Plus; Brother HR- 

15XL; Diablo Advantage C-150, D25, 630; Qume LetterPro-20; 
fama] and Okimate-20. If your printer is not on this list, try some of 
: the drivers to see if they work with your printer. For example, 
the Juki 5510 dot-matrix printer is Epson JX-80-compatible, so 
you can use the Epson JX-80 printer driver. 

If none of the drivers work, select the Custom printer 
driver. If you have the version 1.1 operating system upgrade, 
o by default the Custom selection looks for a printer driver 
named Generic. The Generic driver works with any properly 
cabled printer by ignoring all special printer codes. If your 
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printer won’t respond to the codes used by any of the printers 
on the list, you can at least get a plain-vanilla text printout 
with the Generic driver. 

Unfortunately, the Generic driver won't let you use any 
special printing effects such as underlining, boldface, italics, or 
bit-image graphics. You need a printer driver created espe- 
cially for your brand of printer. Many people are working on 
drivers for unsupported printers, including one company that 
has developed a printer-driver builder that a nonprogrammer 
can use to design a new custom driver. Nevertheless, if you 
are looking for a printer for your Amiga, it’s best to buy one 
that is compatible with one of the above printers, 
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Programming in 
Modula-2 


Charles Brannon 


There are a plethora of programming languages for the Amiga, 
giving programmers and developers a wide choice of program- 
ming styles and systems. There are various versions of BASIC, 
C compilers, macro assembler/editors, versions of Pascal, and 
even an implementation of LISP. Numerous programming 
tools, such as editors and debuggers, are also available. 

A relative newcomer to the scene, TDI’s Modula-2, is now 
getting some attention. Some programmers consider it easier 
to learn and use than C, since it shares many of the high-level 
aspects of Pascal while still retaining a machine-level interface 
for maximum efficiency. 

Modula-2 is a descendent of the language Modula, which 
in turn is a descendent of Pascal. Nicklaus Wirth, the inventor 
of Pascal, designed Modula from the roots of Pascal, but pur- 
posely kept it very simple so that it could be used with very 
small computers—primarily for controlling hardware devices 
such as robot arms. The original Modula had little application 
outside a very specialized world, so Wirth put back most of 
the features of Pascal to create Modula-2. TDI has worked di- 
rectly with Wirth to implement versions of Modula-2 for the 
Amiga and Atari ST. 


Software Chips 

The concept of Modula-2 is echoed in its name. It’s a language 
designed specifically for the techniques of modular program- 
ming, just as Pascal was designed to make structured program- 
ming convenient and elegant. Modular programming—the art 
of breaking a large, complex problem into small, independent 
tasks—is at the heart of all programming, but Modula-2 tries 
to bring to software the modularity inherent in computer hard- 
ware, based on off-the-shelf chips and components. With “soft- 
ware chips,” Wirth envisioned, software technology could 


193 


CHAPTER FOUR 


advance apace with the remarkable speed of hardware evolution. 

If software chips are possible, they have to be based on 
program modules that can be truly independent, and hence, 
individually testable. You can compile a module without hav- 
ing to recompile the entire program. A module, once devel- 
oped, becomes a “black box” routine that accepts input 
and/or provides output. You no longer need to know how this 
module works internally to use it—you just plug it in and go. 
Writing a program becomes a task of putting together these 
building blocks in the right way without ever needing to re- 
invent the wheel. Why solve a problem when someone else 
has already found the solution? 

TDI's Modula-2 comes with a standard library containing 
modules for input/output, math routines, and access to special 
machine features. You use only the routines you're interested 
in, and only these routines (and the underlying routines they 
are based on) need to be included in your compiled code. This 
lets you control the size of your final program. 

You can easily add your own library modules. First, you 
write the definition module, which simply contains the proce- 
dure headers that specify the inputs and outputs of a module. 
The definition module primarily specifies the names of these 
procedures. It compiles to a symbol file for use by the com- 
piler. The implementation module contains the actual code of 
the module. You compile the definition module separately 
from the implementation module. 

You can change and recompile the implementation mod- 
ule without changing the definition module, as long as your 
procedure headings remain the same. When you're referencing 
library modules, the compiler can check the compact, com- 
piled symbol file rather than the full-length definition module, 
speeding up compilation. After compilation, a linker combines 
your main program with the compiled implementation mod- 
ules to create the final executable program. 


Reminiscent of Pascal 

One of the best ways to learn about a language is to study an 
example program. The program accompanying this column is 
written to demonstrate some of the features of Modula-2 with- 
out getting bogged down in tricky algorithms. It’s a simple 
“guess my number” game. The RandomNumbers module thinks 
of a number from 1 to 100. The program then gives you ten 
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tries to guess the number, helping out with hints. If you guess 
too high, the program recommends that you try a smaller 
number. If you guess too low, you should try a higher number. 

Here's how the program works. The first line declares the 
name of the module. Next, the IMPORT statements specify 
which external library calls we'll be using. Then we declare 
the variables. We define the procedure SkipEOL, used to strip 
away the rest of a line after getting a single-character re- 
sponse. The main loop follows, enclosed by the keywords BE- 
GIN and END. (All Modula-2 keywords must be typed in 
uppercase, which can be annoying.) 

Most of the program looks very much like Pascal, espe- 
cially the use of := for assignments and the required semi- 
colon at the end of each logical line. Also, you won't find 
GOTO anywhere in this or any Modula-2 program. Instead, 
you can control looping and program execution with state- 
ments like LOOP-EXIT-END, WHILE-END, REPEAT-UNTIL, 
and IF-THEN-ELSE-END. 

You might be interested to know that this program com- 
piles in 35 seconds when the source code is stored in the RAM 
disk; it takes 37 seconds to compile when the source code is 
stored on a floppy disk. Linking takes 45 seconds from the 
RAM disk, and just one minute from a floppy disk. This is 
quite a bit faster than Lattice C and compares well with Aztec C. 

There’s much more to Modula-2 than this discussion can 
encompass. The language even permits procedures to run as 
multitasking programs. Our example doesn’t show how easily 
Modula-2 can take advantage of the Amiga operating system— 
even a small program would be too large to demonstrate 
here—but the interface is similar to C’s, using Pascal-style 
RECORDs instead of C structures. It’s possible to develop 
modules that support the Amiga operating system on a higher 
level, using calls like Screen(320,200,5) to open a custom screen, 
as opposed to filling in the blanks of a NewScreen structure, 
opening the Intuition library, and calling OpenScreen( ). Some 
high-level modules are included in the library, When these 
modules are developed and shared between Modula-2 pro- 
grammers, Amiga programming in Modula-2 can seem almost 
as easy as in BASIC, but with every advantage of a modern 
compiled language. 
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Guess the Number 
MODULE Example; 


FROM InOut IMPORT EOL, Read, Readint,ReadString, 
WriteLn,WriteString,WriteInt; 
FROM RandomNumbers IMPORT Random; 


VAR 
MyNum, Guess, Tries : INTEGER; 
Again : CHAR; 


(* Skips until end of line is reached *) 
PROCEDURE SkipEOL; 

VAR temp : CHAR; 
BEGIN 

REPEAT 

Read(temp); 

UNTIL temp=EOL; 

END SkipEOL; 


(* The main loop *) 
BEGIN 
+ LOOP 
MyNum := Random(196)+1; 
WriteString("I'm thinking of a "); 
WriteString("number from 1 to 166"); 
WriteLn; 
Tries :=0; 
LOOP 
fries := Tries+1l; 
IF Tries>1@ THEN EXIT; 
WriteString("Guess #")}: 
WriteInt(Tries,2); 
Writestring("? "); 
ReadInt (Guess); 
WriteLn; 


END; 


IF (Guess=MyNum) OR (Guess=@) THEN EXIT; END; 


IF Guess<MyNum THEN 
WriteString("Try a larger number."); 
ELSE 
WriteString(“Try a smaller number.“); 
END; (* IF *) 
WriteLn; WriteLn; 
END; (* LOOP *) 
IF Tries>18 THEN 
wWriteString("You only get 1@ triesl"); 
END; (* IF *) 
IF Guess=MyNum THEN 
WriteString("You guessed my number!"); 
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WriteLn; 
WriteString("After "); 
WriteInt(Tries,2); 
WriteString(" tries."); 
END; (* IF *) 
WriteLn; WriteLn; 
WriteString("Play again? (Y/N): 
Read(Again); 
1ey SkipEOL; (* skip ahead to next line *) 
IF (Again='N') OR (Again='n') THEN EXIT; END; 
END; (* LOOP *) 
END Example. 


); 
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Getting Online 


Charles Brannon 


Your Amiga can be a terminal to other, much larger 
computers all over the world. Included here is a 
quick overview of the basics of telecommunications 
with your Amiga. 


Any computer can become an information appliance with the 
addition of a modem. Hayes-compatible 1200-baud modems 
can be bought for under $200 now. You may find one small 
complication when connecting a modem to your Amiga. When 
purchasing a cable to connect the modem to your Amiga, you 
must pay close attention to the types of plugs on the cable. 
The Amiga serial-port connector—where you plug in the mo- 
dem cable—is the gender opposite that of the IBM serial port. 
(The Amiga port uses a female connector while the IBM uses a 
male.) Since IBM-style modem cables are more common than 
Amiga modem cables, you may find it simpler to use an IBM 
cable with a gender-changer module. I’m using one with my 
Amiga at home. A gender-changer is a small box that attaches 
to the female plug on the end of the modem cable, terminat- 
ing in a male connection that plugs into the female connector 
on the Amiga. Be aware, though, that there is voltage on pins 
14, 21, and 23 on the Amiga port, although these pins are not 
normally used in most RS-232 cables. Check your modem 
manual to make sure these pins are not connected or grounded 
on your modem’s connector. 

When using a direct-connect modem, you are required to 
call your local phone company to register the modem, as it be- 
comes part of the phone system when you plug it in. Have at 
hand the FCC registration and ringer-equivalence numbers, 
usually found on the bottom of the modem or in the manual. 

Next comes terminal software. In its simplest form, this is 
a program that monitors the modem for input, which is dis- 
played on your screen, and checks the keyboard for your typ- 
ing, which is sent out over the phone lines. The Amiga BASIC 
Extras disk contains a simple terminal program in the Basic- 
Demos folder. More complex terminal programs allow you to 
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transmit a file (uploading) or store incoming data to disk 
(downloading). “AmigaTerm,” included in this chapter, is a 
powerful terminal program written in BASIC. It includes most 
of the features most users want. 


Error-Free and Automatic 

Programs such as XMODEM allow error-free file transmission. 
XON/XOFF allows either computer to pause when necessary 
without missing any characters. Advanced modem software 
lets you create scripts to automate the process of calling a re- 
mote computer, entering your password, and seeking and 
downloading information—even if you aren’t there to monitor 
your computer, 

What can you do with a modem? First, you can call up lo- 
cal bulletin boards, including Amiga-specific ones. This is a 
great way to meet people. Public bulletin boards offer services 
where callers discuss everything from the nuts and bolts of 
computing to controversial political issues. Usually, there are 
also public domain programs for you to download. It’s ex- 
pected you'll upload some of your own programs in exchange. 

Then there are the commercial information services such 
as CompuServe, The Source, Delphi, and GEnie, These ser- 
vices provide information such as stock quotes, daily news/ 
weather/sports, and online encyclopedias and books. Via elec- 
tronic mail, you can send and receive letters directly over the 
phone. Most of these services let you play games with other 
users. The popular CB simulation allows dozens of callers to 
talk via keyboard in a conversational free-for-all. You can also 
shop by phone, make airline and ticket reservations—even 
buy and sell commodities. 

Always a popular part of these services is the forum spe- 
cific to your machine. All these services have Commodore or 
Amiga forums, containing databases of the most popular pub- 
lic domain software. The forums allow you to exchange mes- 
sages with other members. It’s like belonging to an electronic 
user group. It’s a great way to get help with a problem—just 
send a question and you'll likely be surprised by how many 
answers you get. 
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The Twenty-First Century and Beyond 
Perhaps the most powerful option you have with an auto- 
answer modem—one that can pick up the phone and establish 
a connection automatically when called by another modem— 
is to set up your own bulletin board. You can buy bulletin 
board software or download public domain programs to help 
manage your own information service. You are the host here, 
providing your time and equipment to set up a local commu- 
nications network. Callers will download software and expect 
to find interesting things to download. Of course, you must 
insure that you offer only noncopyrighted, public domain soft- 
ware on your board. If in doubt, leave it out. (Programs pub- 
lished in most magazines and books, including this book as 
well as COMPUTE! magazine, are not in the public domain.) 
Technology is now significantly expanding our communi- 
cations; we live in an age where we can have our own com- 
puters and hook them into a global intelligence net, offering 
the greatest possibilities yet for personal expression and free 
choice. Although there are limitations, telecommunications of- 
fer us a hint of what life will be like as the global village be- 
comes.a reality in the twenty-first century, and beyond. 
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Kathy Yakal 


Learning to keep your telecommunications costs as 
low as possible is one of the secrets of online success. 
Here are a few tips to help you conserve your money 

while still enjoying the pleasures of telecomputing. 


There’s probably no other personal computer application that 
can be as costly overall as telecommunications. The initial 
costs are low: a modem, a cable, perhaps, and terminal soft- 
ware. And if you limit yourself to calling local electronic bulle- 
tin board systems (BBSs), your expenses can end there. 


An Exciting and Varied World 
But it’s a rare computer owner who can resist moving out to 
explore the exciting and varied world of telecommunications. 
Your first taste of online activity usually leads to the desire to 
find out what's happening online across the country. So you 
start calling out-of-state BBSs, and maybe subscribe to an 
online service or two, Soon, you're facing startup subscription 
fees, monthly service and hourly online charges, and steadily 
climbing telephone bills. 

However, there are ways to economize online. 

Familiarize yourself thoroughly with whatever system 
you're on before attempting to accomplish anything there. 
Obviously, familiarizing yourself with the system is accom- 
plishing something, but don’t even attempt extensive online 
chatting before you understand the command system and 
menu structures. Fortunately, most systems offer a lot of help 
in this area, and encourage the user to spend some time get- 
ting acquainted. For example, the Delphi telecommunications 
system requires each new user to go on an online tour at the 


204 


AEE 


C 


ce 


Telecommunications 


first sign-on. QuantumLink, a Commodore-specific service, of- 
fers guided tours to new users at regularly scheduled times. In 
fact, most of the major telecommunications networks attempt 
some sort of introductory orientation for new users, whether 
it’s through written instructions or online tours. 

When you're using a system where this kind of automatic 
help isn’t available, it’s a good idea to download (have sent 
from the host computer to your disk drive) Help menus 
(usually accessed by typing H or a question-mark symbol at a 
command prompt), and later print them out and study them 
offline (disconnected from the host) until you know them well. 

These menus often contain detailed explanations of each 
command, and give you a good idea of the quickest, easiest 
ways to get around the system. It may seem a lot of trouble, 
but learning them will save enormous frustration, time, and 
money. The system operators (sysops) at each network are 
usually available if you really get stuck, and most are quite 
happy to help. But remember, if you’re trying to get help 
while online, you're generally paying for the connect time. 

Once you've learned a system fairly well, consider 
using its Expert mode. Most systems, and even many BBSs, 
offer a mode for experienced users that allows them to bypass 
many of the menus and go straight to the desired area. You 
need to be sure you know your way around well before you 
start using this, or you could find yourself locked out of the 
menu structure and unable to go anywhere. 

If you do a lot of downloading, seriously consider get- 
ting a 1200-baud modem, While 300 baud is a good speed for 
socializing, it can be frustratingly slow when you simply want 
to download a program into your computer, At the same time, 
1200 baud is often too fast for chatting, if several people are 
participating online, There’s no simple formula to help you 
determine whether or not the savings from fast downloads 
will justify the expense of a 1200-baud modem. While it’s true 
that you're getting the information four times faster, most sys- 
tems have a higher hourly charge for 1200-baud use. In the 
long run, however, computer users who opt for 1200-baud 
service generally don’t choose to return to 300-baud. 

Speed up your log-on time by using a more sophisti- 
cated terminal program. Many terminal programs let you cre- 
ate macros, small user-definable routines that set up an 
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automatic log-on procedure. If there is one area where you al- 
ways go first, or one task you always perform (such as check- 
ing mail), you can add that to the macro and save some time 
and keystrokes. Here again, the savings may or may not be 
worth the extra expense of a new terminal program. But the 
extra convenience may play a part in your decision. 

Try to confine the bulk of your downloading to times 
when the system is relatively quiet. Systems that operate on 
a 24-hour basis charge lower rates for off-peak hours (eve- 
nings and weekends), thus offering substantial savings. But 
even off-peak hours are busier at some times than at others, 
usually from about 8:00 until 11:00 in the evening. At those 
times, a system sometimes suffers from short delays, pauses 
between the time you type commands and the time they’re ex- 
ecuted. You'll save some money if you steer clear of those 
hours. 

If telecommunications at off-peak hours, such as 2:00 in 
the morning, is impossible, there are programs that will auto- 
matically log you on to a system at a specified hour, do the 
tasks you've assigned them, and log you off when they’ve fin- 
ished. This doesn’t necessarily require you to leave your com- 
puter on all night. If your computer can be set to boot up 
automatically when the power comes on, you can leave your 
disk in the drive and get an automatic timer that will turn the 
computer on and off at predetermined hours. 

Consider shopping for a new long distance telephone 
service that may have lower rates than your present system. 
This won’t make any difference if you only call the major tele- 
communications services and live in an area with local-access 
numbers for services like Tymnet and Telenet, which act as 
connectors to the telecommunications services. But if you’re 
calling a lot of BBSs long distance, you might be able to reap 
some fairly significant savings if you switch to a more eco- 
nomical long-distance service. 

If you're downloading messages at 1200 baud, dump all 
of them to disk and search through them later. Searching 
through messages and deciding which ones you want to keep 
can be quite time-consuming. If you're at 1200 baud, it might 
actually save online charges to dump a whole group of mes- 
sages without stopping to read them and deciding which to 
save and which to discard. After you've logged off, you can go 
through the file and keep only the ones you want. 
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Set an alarm clock next to your computer. This may 
sound rather silly, but it’s easy to lose track of time when 
you're online, especially in your first few weeks of telecom- 
puting. Even if you don’t feel you need to set absolute limits 
for yourself, it will alert you as to when a set period of time 
has gone by. Some terminal software includes an alarm clock 
function. 

There are no hard-and-fast rules when it comes to saving 
money online. The more experience you get in telecomputing; 
the more efficient you'll become. You'll also find that all of the 
telecommunications networks are trying to offer ways to in- 
crease their subscriber base and their percentage of online 
usage. As a part of this effort, rates are getting less expensive, 
systems are becoming easier and faster to use, and there are 
more services being offered within each network. Increasingly, 
the happy result is more telecomputing for the money. 
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Philip I. Nelson 


With “AmigaTerm,” a comprehensive telecommuni- 
cations program for the 512K Amiga, you can 
communicate with other computers, call commercial 
information services, and even upload and download 
files. Written in Amiga BASIC, the program gives you 
full control over all RS-232 parameters and includes 
power features such as autodialing, macros, and 
configuration files. A modem is required. 


Telecommunicating is an increasingly popular use for personal 
computers. With a modem and a personal computer, you can 
access thousands of public domain programs, dial up the latest 
stock market quotes, and exchange messages, electronic mail, 
and even a favorite recipe with other people many miles away. 
The information bonanza is going strong. But computer com- 
munications require a telecommunications program, often 
known as a terminal program. “AmigaTerm” is a terminal pro- 
gram that provides all the features you need to start telecom- 
municating with the Amiga. It has many of the same capabilities 
offered by commercial programs, but it’s written entirely in 
Amiga BASIC, in a modular style that makes it easy to expand 
to add even more features. 

Type in the program and save a copy to disk. Before 
you run the program, you must also copy the file named 
graphics.bmap from the Basicdemos drawer (subdirectory) of 
your “Extras” disk onto the disk where you saved Amiga- 
Term. This file must be present on every disk that contains 
AmigaTerm {it’s needed for the program's special graphics ef- 
fects). Don’t copy graphics.bmap into a drawer on the disk, 
even if AmigaTerm itself is within a drawer. 


Running AmigaTerm 

AmigaTerm is entirely menu-driven for maximum conven- 
ience, You can select every program option from onscreen 
menus with the mouse pointer. When you run the program, it 
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spends a few moments initializing; then it displays a welcome 
message. When the welcome appears, AmigaTerm is ready to 
use, Make sure that your modem is connected to the computer 
and turned on before you proceed any further. 

If you wish to call a commercial information service, sim- 
ply dial the service and log on. AmigaTerm defaults to the 
communications settings used by most commercial services 
(see below). To access any of the menu options, hold down 
the right mouse button and move the pointer to the menu of 
your choice. A drop-down menu appears, displaying that 
menu’s options. To select an option from the menu, move the 
pointer down and release the button when the option is 
highlighted. 

When using AmigaTerm, you'll notice that program mes- 
sages and prompts are displayed in dark, boldface characters, 
while ordinary text—incoming as well as outgoing infor- 
mation—is displayed with normal characters. This is done to 
highlight program information and prevent confusion when 
you are communicating with another computer system. 

AmigaTerm offers many different options. Let’s examine 
each of its menus in turn, beginning with the Settings menu. 


Settings Menu 

Before you can communicate with another computer, you 
must make sure that both machines are speaking the same 
“language.” For telecommunications, that language is the RS- 
232 standard. AmigaTerm’s Settings menu gives you control 
over all the important RS-232 settings. We'll explain them 
briefly here. If you’re not familiar with these terms, see “RS- 
232 Standards” later in this article. 

When you activate the menu with the right mouse button, 
the Settings menu displays the current settings for the baud 
rate, parity, word length, stop bits, and duplex mode. To 
change a setting, move the pointer down to that setting and 
release the button when the desired option is highlighted. 
AmigaTerm displays the new setting on the screen in boldface 
type as a reminder of the change. An explanation of each RS- 
232 parameter follows. 

Baud rate. AmigaTerm can communicate at either 300 or 
1200 baud, This option (like most others in the Settings menu) 
toggles between the two available settings. If the baud rate is 
300, selecting the option changes it to 1200, and vice versa. 
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AmigaTerm defaults to 300 baud, the lower of the two speeds, 

Parity. AmigaTerm defaults to even parity. This option al- 
lows you to select even, odd, or no parity. 

Word length. AmigaTerm uses a default word length of 
seven bits, You can also change the word length to eight bits. 

Stop bits. The default setting for this option is a stop bit 
of 1. It should almost never need to be changed. For special 
applications, the stop bit can be changed to 2, 

Duplex. Full duplex, the default setting, is most com- 
monly used for calling bulletin boards and information ser- 
vices. You may also select half-duplex mode for situations in 
which the remote computer does net echo the characters you 
are transmitting. 


Special Menu 

The Special menu controls two convenience features: automatic 
phone dialing and configuration files. Of course, the 
autodialing feature works only if your modem is capable of 
autodialing. An explanation of the options in the Special menu 
follows. 

Phone number. When you select this option, AmigaTerm 
displays the current telephone number inside a custom dialog 
window. To enter a new number or change an existing one, 
simply type in the number when the dialog window appears. 
To exit without changing the number, press RETURN without 
typing anything. 

Dial. To dial the current number, select the Dial option. 
AmigaTerm transmits a Hayes-format autodial command, fol- 
lowed by the current telephone number. 

Save settings. This important option allows you to save 
all of the current RS-232 settings, plus the current phone num- 
ber and macros (see below), in a disk file for future use. Once 
a configuration file has been saved, you can reconfigure Amiga- 
Term at any time simply by loading the file. This is particularly 
useful if you regularly call more than one information service. 

To save the current settings, select the Save Settings option 
from the Special menu. AmigaTerm opens a dialog window 
and prompts you to enter a filename for the settings file (if 
you press RETURN without typing anything, AmigaTerm 
aborts the operation). Any legal Amiga filename may be used 
for the settings file. However, the name setup has a special 
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meaning in this program. When you run AmigaTerm, it auto- 
matically searches the root directory of the current disk for a 
file named setup. If it finds the file, the program loads the 
settings when it boots. This feature is very convenient if you 
call a particular bulletin board or information service regularly. 
As soon as AmigaTerm boots up, you're ready to dial the ser- 
vice. All you need to do is select the Dial option. 

Load settings. This option loads a settings file into mem- 
ory. Enter a filename in the dialog window when prompted 
(press RETURN to abort without loading a file). AmigaTerm 
always displays all of the current RS-232 settings in boldface 
when you exit this option. 


Transfer Menu 

The Transfer menu allows you to upload (send) and download 
(capture) a file. What you transfer is up to you—the file may 
contain a program, word processing document, personal mes- 
sage, or whatever. 

Send file. To send a file, choose the Send option from the 
Transfer menu. AmigaTerm opens a dialog window and asks 
you to enter the name of the file you wish to transmit. To 
abort this function, press RETURN without entering a file- 
name. If a disk error occurs, AmigaTerm signals an error and 
aborts the operation. Otherwise, it loads the file from disk and 
sends it out. Do not try to break out of the program while 
AmigaTerm is busy sending a file.The program lets you know 
when the transfer is complete. 

Receive file. The Receive option of the Transfer menu 
permits you to capture a file sent from a remote computer. Se- 
lect the option from the menu; then enter a filename in the di- 
alog window. AmigaTerm opens a disk file of that name, then 
diverts all input to that file until you signal that the transfer is 
complete. To end the capture, select Receive a second time: 
AmigaTerm closes the disk file. No restrictions are placed on 
the type of information that you receive. AmigaTerm stores 
whatever it receives between the time you initiate the capture 
and the time you terminate it. AmigaTerm does not support 
error-checking protocols such as XMODEM or Kermit. 

When capturing files, keep in mind that the Amiga’s 
RAM: device, a native RAMdisk, is always available. To save.a 
file to the RAMdisk rather than a floppy disk, simply include 
the prefix RAM: at the beginning of the filename, just as you 
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would include the prefix DFO: to specify drive 0 or DF1: to 
specify drive 1. Since the RAMdisk operates much faster than 
a floppy disk drive, this method eliminates the delays which 
otherwise occur when a long file is being written to disk. Once 
you have completed the capture, the file remains safely in 
RAM even after you've exited BASIC and returned to the 
Workbench. In version 1.2 of the Amiga’s operating system 
(available only in Beta test form at this writing) the RAMdisk 
appears on the Workbench and its files can be manipulated 
with icons, like floppy disk files. In earlier versions of the op- 
erating system, you must open a CLI window and perform a 
COPY operation from AmigaDOS to transfer a file from the 
RAMdisk to a floppy disk. For instance, the AmigaDOS com- 
mand COPY RAM:TEST TO DFO:TEST copies the file TEST 
from the RAMdisk to the disk in drive 0. 


Macro Menu 

The Macro menu, AmigaTerm’s most advanced feature, makes 
often-used commands available in a convenient, onscreen 
menu. For instance, most bulletin boards require that you log 
on in some fashion by typing a password or user I,D. number. 
By storing such commands in a macro definition, you can 
transmit the desired sequence of characters by selecting the 
macro from an onscreen menu with the mouse—without having 
to type a single character. This saves time as well as minimiz- 
ing typing errors. Since AmigaTerm saves macro definitions as 
part of a configuration file (see “Save Settings”), you can have 
as many as ten macros for each configuration file. 

When you activate the Macro menu, ten macro selections 
appear beneath an option labeled Edit Macro. The Edit option 
is used to enter a new macro string or change an existing one. 
To see how it works, select Edit Macro; then enter 1 when it 
prompts you for a macro number. When the next prompt ap- 
pears, enter a short string: It can be anything, since this is just 
for practice. When the dialog window disappears, AmigaTerm 
has recorded the macro. To transmit the macro, set the Duplex 
option of the Settings menu to half duplex (to insure that 
AmigaTerm echoes the transmitted characters on the screen); 
then select Macro 1 from the Macro menu. The macro string 
that you entered is simultaneously displayed on the screen 
and sent to the modem. 
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Automated Log-On 

Macro definitions are automatically saved when you choose 
the Save Settings option. When you load a settings file, Amiga- 
Term loads that file’s macros as well. This feature allows you 
to automate your telecommunications even further. To illus- 
trate—say that you frequently call a fictional information ser- 
vice called ChompuSerf, and you ordinarily begin each session 
by entering the AmigaSIG area to read messages. After you’ve 
set the correct RS-232 parameters in the Settings menu and en- 
tered ChompuSerf’s phone number with the Phone option, you 
can create several macros to take you all the way through the 
log-on procedure. Macro 1 is defined as CIS, the string that 
tells your local packet-switching network which service to call. 
Macro 2 is defined with your user I.D. number for Chompu- 
Serf, and Macro 3 is defined with your password. Macro 4 is 
defined as GO AMIGASIG, the command that moves you 
from the top-level menu of ChompuSerf to the AmigaSIG sec- 
tion of the service. 

Once everything is set as needed, save the settings, phone 
number, and macros in a single configuration file with the 
Save Settings option. When you reload the file in a later ses- 
sion, AmigaTerm is properly configured to communicate with 
ChompuSerf. You dial ChompuSerf with the Dial option. 
When the service comes online, you can reach your destina- 
tion effortlessly by selecting the predefined macros from a 
screen menu. Macros not only save you the time and bother of 
typing repetitive commands, but decrease the risk of typing 
errors. 


RS-232 Standards 

Despite the enormous popularity of telecomputing, many com- 
puter owners—including some otherwise expert program- 
mers—are intimidated by the unfamiliar jargon and seemingly 
technical nature of the process. In fact, there’s nothing particu- 
larly mystical about communicating with another computer 
over the telephone lines. If you and the computer owner at 
the other end of the link are using terminal programs, it’s 
usually just a matter of making sure that you both use the 
same baud rate and other RS-232 parameters. For those who 
are unfamiliar with this area, here is a fuller explanation of the 
RS-232 parameters which you can control in AmigaTerm. 
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Baud rate. This setting determines how fast you can com- 
municate. Although the term baud is more frequently used, it’s 
more accurate to refer to this parameter as bps, which stands 
for bits per second. For years, nearly all personal telecomput- 
ing was done at 300 bps due to the low cost of 300-bps 
modems, In recent times, the price of 1200-bps modems has 
dropped so dramatically that many bulletin boards and infor- 
mation services support either 1200 or 300 baud. The Amiga 
can support much higher baud rates, but Amiga BASIC is not 
fast enough to communicate reliably at speeds higher than 
1200 bps. 

Parity. The parity setting provides the computers at both 
ends of the link with a means of error-checking for each char- 
acter which is transmitted. Fortunately, it’s rarely necessary to 
worry about how this error-checking works. For commercial 
information services which communicate with a word length 
of seven bits, the parity is usually even. A setting of no parity 
is often used in communicating with a word length of eight 
bits. Odd parity is used infrequently. 

Word length. The word-length setting indicates how 
many bits (binary digits, either a 1 or 0 value) are needed to 
make up one data word, which ordinarily represents one char- 
acter of text. The bits are sent one by one, and the computer 
adds bits together to determine the code for the current char- 
acter. For plain ASCII text, you can use either seven bits or 
eight bits, since seven bits is sufficient to express all the nu- 
merals, punctuation, and letters of the alphabet as standard 
ASCII codes. To send other types of information (for instance, 
a word processing document containing control codes), a word 
length of eight bits may be necessary. In many cases, the word 
length is not critical. However, it is very important that both 
computers use the same word-length setting. If you have es- 
tablished a link with the other computer, but the information 
appears garbled, try changing the parity and/or word length. 

Stop bit. You will almost never have to change this set- 
ting, which provides the computer with a means for telling 
when it has reached the end of a character. A stop bit of 1 is 
nearly universal except for very slow baud rates. ; 

Duplex. The duplex setting, called echo in some terminal 
programs, sounds mysterious but simply has to do with what 
your computer shows on the screen. Many information ser- 
vices automatically echo every character that you send to 
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them. If you type in GO AMIGASIG to enter the AmigaSIG 
area of the ChompuSerf information service, ChompuSerf 
sends back the characters G-O- -A-M-I-G-A-S-I-G one by one 
as you type them in. Among other things, the echoing lets you 
confirm immediately that the computer at the other end is re- 
ceiving your transmission correctly. 

When you set AmigaTerm to full duplex, it does not dis- 
play characters which you send out—only those which it re- 
ceives. This is the setting you should use for information 
services or any remote computer that echoes back what you 
send. When you select the half-duplex setting, AmigaTerm 
displays every outgoing character immediately. Half duplex is 
appropriate if you are communicating directly with a friend or 
in any other situation where the computer at the other end is 
not echoing your transmissions. 

Generally, if you can’t see what you type, you need to 
switch from full duplex to half duplex. Conversely, if 
AmigaTerm displays two copies of every character (GGOO 
AAMMIIGGAASSIIGG instead of GO AMIGASIG), you prob- 
ably need to switch from half duplex to full duplex. Some 
modems also have a duplex switch for switching between half 
and full duplex. Under ordinary circumstances, the modem’s 
duplex switch should be set for full duplex (no echoing) to 
avoid confusion. 


AmigaTerm 
The left-arrow symbols in this listing indicate when to press RETURN at the end of each 
program line. Do not attempt to type the arrows themselves. 


* @AmigaTerm 1.8 for 512K Amiga< 
< 

CLEAR , 65536%< 

ON ERROR GOTO o< 

GOSUB Setup< 

€ 


Mainr< 

MenuChoi ce=MENU(1)< 

ON MENU(®) GOSUB Menul, Menu2, Menu3, Menus, MenuS< 
IF LO0C(1) THEN x$#INPUTS(1,1):PRINT x@p2IF Capturef 
lags1 THEN PRINT #2,x93< 

X@@INKEYS3 IF x>°" THEN< 

IF x@#CHR®(27) THEN xS=CHRS(3)< 

PRINT #1,x8;8IF Duplex THEN PRINT x93< 

END IF< 

GOTO Main<e 

€ 
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OpenUp: < 

CLOSE 1<¢ 

Modem@="com12 "+STR* (Baud (Baud) ) +CHRS (44) +Paritys (Pa 
rity) +CHR@(44)< 

Modem$=Madam¢+STRS (Langth (Length) } +CHR® (44) +STRS (St 
Bit (StBit))< 

ON ERROR GOTO TrapMe< 

OPEN Modem@ AS 1 LEN=1i¢ 

ON ERROR GOTO o< 

RETURN 

€ 


Menuls< 

MENU RESET< 

WINDOW 1, , (8,0)-(616,186), 31¢ 
CLOSE< 

GOSUB Roman<é 

IF SaveHeight&=8 THEN< 

CALL SetFont (WINDOW (8), tapaz8t) < 
GOTO Pill<€ 

END IF< 

IF SaveHeight&=9 THEN< 

CALL SetFont (WINDOW (8) , topaz 7&) < 
END IF< 

Pills¢ 

LIBRARY CLOSE< 

CLEAR ,25¢08< 

END< 

€ 

Menu2:< 

ON MenuChoice GOTO Twol, Two2, Twos, Two4¢ 
RETURN 

« 

Twolr€é 

WINDOW 2, "Save Current Settings", (S8, 98) - (49, 110), 
28¢ 

BOSUB Bold<¢ 

PRINT “Filename: "“3< 

GOSUB Roman< 

LINE INPUT Filenames<¢ 

IF LEN(Filename#)=% THEN Wip< 
Erroratatus=0< 

ON ERROR GOTO TrapMa< 

OPEN Filenames FOR OUTPUT AS 2<¢ 
ON ERROR GOTO a< 

IF Errorstatus=1 THEN Wip< 

IF Phone$="" THEN Phone$="none"< 
PRINT #2,Baud,Parity, Length, StBit, Duplex ,Phone¢< 
FOR j#1 TO 19¢ 

PRINT #2,Mac8(i)}< 

NEXT< 

Wipré 
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CLOSE 2< 

WINDOW CLOSE 2< 

GOSUB Ronan< 

RETURNE 

€ 

Two2:< 

WINDOW 2,"Load New Settings", (58, 98)- (480,120), 20¢ 
GOSUB Bold<¢ 

PRINT "Filename: “3< 

GOSUB Roman< 
LINE INPUT Fil 
IF LEN(Filena 
Errorstatus=0< 

ON ERROR GOTO TrapMe< 

OPEN Filenames FOR INPUT AS 2¢ 

ON ERROR GOTO B< 

If Errorstatus=1 THEN Xip<¢ 

INPUT #2, Baud, Parity, Length, StBit, Duplex<¢ 

LINE INPUT #2, Phones< 

FOR j=1 TO 18¢ 

LINE INPUT #2, Mac#(j)< 

NEXT€ 

GOSUB OpenUp< 

MENU 3, 1, 1, Baud(Baud)<¢ 

MENU 3, 2, 1, Pars(Parity)< 

MENU 3, 3, 1, Length (Length) < 

MENU 3, 4, 1, StBits(StBitre 

MENU 3,. 5S, 1, Ouplex®(Duplex)< 

Xips< 

CLOSE 2<¢ 

WINDOW CLOSE 2< 

GOSUB Bold< 

PRINT Bauds (Baud) < 

PRINT Pars(Parity)< 

PRINT Lengths (Length)< 

PRINT StBits(StBit)< 

PRINT Duplex (Duplex) < 

PRINT “Phone # ";Phones< 

GOSUB Roman<é 

RETURNE 

€ 

TwoSs< 

WINDOW 2, "Phone Number", (5, 90) — (458, 128) , 20€ 
GOSUB Bold< 

PRINT "Current Number: “;Phones< 

PRINT ress RETURN to exit, or enter new number"< 
PRINT “s "“3¢ 

GOSUB Roman< 

LINE INPUT Temps< 

IF LEN(Temp$)=@ THEN Zipé 
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Phonet=Tempt< 

Zipr< 

CLOSE 2< 

WINDOW CLOSE 2< 
GO0SUB Roman< 

RETURNE€ 

€ 

Two4n¢ 
Dial$="ATDT"+Phones< 
PRINT #1, Dials< 

IF Duplex THEN PRINT Dial$< 
RETURNE€ 

€ 


Menus: < 

ON MenuChoice GOTO Three1, Three2, Threes, Three4, Thre 
es< 

RETURNE 

€ 


Threeis<€ 

Baud=1-Baud: MENU 3, 1, 1, Baud®(Baud)< 
GOSUB OpenUp< 

BOSUB Bold<¢ 

PRINT Baud# (Baud) < 

S08UB Roman< 

RETURNE 


€ 

Three2i<¢ 

Parity=Parity+isIF Paritye3 THEN Parity=o< 
MENU 3, 2, 1, Par®(Parity)< 
GOSUB OpenUp< 

GOSuUB Bald< 

PRINT Par$(Parity)<€ 

GOSUB Roman< 

RETURNE 

€ 

Threes:< 
Length@i-LengthiMENU 3, 3, 1, Lengtht (Length) < 
GOSUB OpenUp< 

GOSUB Bold< 

PRINT Length (Length) < 
GOSUB Roman< 

RETURN € 

€ 

Three4:< 

StBit=1~StBit< 

MENU 3, 4, 12, StBits(StBiti< 
SOSUB OpenUp< 

GOSUB Bold< 

PRINT StBite(StBitr< 

GOSUB Roman< 

RETURN 
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€ 

Threed: € 

Duplex=1—Dupl ex< 

MENU 3, 5, 1, Duplex#(Duplex)< 

GOSUB OpenUp< 

GOSUB Bold<¢ 

PRINT Duplex (Duplex )< 

GOSUB Roman< 

RETURNE 

€ 

Menu4:<€ 

ON ManuCheice GOTO Fourt, Four2, Four3, Four4< 
€ 

Four 1:<€ 

IF CaptureFlag=1 THEN < 

GOSUB Bold<¢ 

PRINT “Ending file capture. “<€ 

MENU 4,1,1,"Capture file"<€ 

MENU 4,2, 1¢ 

CLOSE 2¢ 

CaptureF) ag=9< 

GOSUB Roman<é 

RETURN< 

END IF < 

€ 

CaptureFlag=1< 

WINDOW 2,"Capture file”, (50, 90)—-(520, 128) ,20¢ 
WIDTH (WINDOW (2) /8) € 

B0SUB Bold< 

PRINT “To end capture, choose same menu option. "< 
PRINT “Filename for your computers: ";< 
GOSUB Roman<e 

CINE INPUT Filenamas< 

GOSUB Bold< 

IF LEN(Filename#)=@ THEN CaptureFlag=@:G0TO You@Qui 
te 

ON ERROR GOTO TrapMe< 

OPEN Filenames FOR OUTPUT AS 2 LEN=1<¢ 
ON ERROR GOTO o< 

IF Errorstatus=1 THEN< 

Errorstatus=d<¢ 

GOTO CloseFour1< 

END IF€ 

ClosefFouri:< 

MENU 4,1,1,°End capture"<€ 

MENU 4,2,9¢ 

WINDOW CLOSE 2<¢ 

GOSUB Bold< 

PRINT "Beginning file capture. "< 
SO0SUB Roman< 


219 


CHAPTER FIVE 


WIDTH (WINDOW (2) /8)< 

RETURNE 

€ 

YouQuits< 

WINDOW CLOSE 2<¢ 

GOSUB Bold< 

PRINT “Cancelled at your request"< 
GOSUB Roman< 

RETURNG 

€ 

Four2:€ 

CaptureF 1 age-d< 

WINDOW 2, "Send file", (50.98) - (488, 128), 20¢ 
WIDTH (WINDOW (2) /8)< 

BOSUB Bold< 

PRINT "Filename of Amiga file: "3;< 
GOSUB Roman< 

LINE INPUT Filenames< 

GOSUB Bold<¢ 

IF LEN(Filename$)=@ THEN YouQuit< 
ON ERROR GOTO TrapMe< 

OPEN Filename® FOR INPUT AS 2¢ 

ON ERROR GOTO o< 

IF Errorstatus=i THEN¢ 
Errorstatus=0< 

WINDOW CLOSE 2< 

GOSUB Roman< 

WIDTH (WINDOW (2) 8) < 

RETURN¢ 

END IF<¢ 

MENU 4,9,8¢ 

FileLength=LiF (2)< 

Buf ferSize=FileLengths1.5< 

If BufferSize>32766 THEN BufferSize=32766<¢ 


PRINT "Sending “;Filename$;" : “;FileLength; “bytes. 


wen K€ 

Hunks=INT (Fi leLength/Buf ferSize) < 
LeftOver=Fi LeLength-Hunks*BufferSize¢ 

= 

seting 

WHILE j<Hunks AND x$=""< 

XS=INKEYS< 

PRINT #1, INPUTS (BufferSize, 2);< 

jajrie 

WEND< 

IF x$="* THEN PRINT #1, INPUTS (LeftOver,2)< 
PRINT:PRINT "Finished sending ";Filenames; 
CLOSE 2€ 

WINDOW CLOSE 2<¢ 

MENU 4,2, 1¢ 

GOSUB Roman< 
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onl WIDTH (WINDOW (2) /80< 
: RETURNE 
€ 
Menus: < 
m IF MenuChoice=1 THEN Fivel< 
uae GOTO Five2< 
< 


Fivels< 
ta WINDOW 2,"“Edit macro”, (58, 99)— (489, 120) , 29¢€ 
si" WEDTH (WINDOW (2) /8)< 
GOSUB Bold< 
PRINT “Macro to edit (1-16) + 
GOSUB Roman< 
LINE INPUT Numt< 
GOSUB Bold< 
IF LEN(Num$}=8 OR VAL (Num$}<i OR VAL (Num$)>10 THEN 
YouQuit< 
Over Again:< 
cLs<¢ 
GOSUB Bold< 
PRINT "Macro "s;Num#s"2"< 
PRINT Mac$ (VAL (Num#})5"2"5< 
GO0SUB Roman< 
LINE INPUT Things< 
IF LEN(Thing$)>38 THEN OverAgain< 
Macs (VAL (Num$} )=Things< 
WINDOW CLOSE 2< 
GOSUB Bold< 
PRINT MacS (VAL (Num$) )< 
BOSUB Roman< 
WIDTH (WINDOW (2) /8)< 
RETURN< 
« 
Fivez:<¢ 
PRINT #1,Mac$ (MenuChoice-1)< 
IF Duplex=1 THEN PRINT Mac (MenuChoice-1)< 
RETURN< 
r* < 
‘ Bolds< 
CALL SetSoftStyle& (WINDOW(S),2,255)< 
rn RETURN 
tos € 
Roman: < 
CALL SetSoftStyle& (WINDOW(8) ,9,255)< 
RETURNE 
eo < 
Setup:< 
i CLOSE< 
: DEFINT a-z< 
DEFLNG B,FileLength< 
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PALETTE @,1,1,1¢ 

PALETTE 1,9,0,0€ 

PALETTE 3,0,.2,.8¢ 

PALETTE 2,.9,-9,8¢ 

«< 

ON ERROR GOTO LibTrap< 

PRINT “Loading graphics library°’<¢ 
LIBRARY “graphics. library"< 
DECLARE FUNCTION OpenFont LIBRARY< 
ON ERROR GOTO 9< 

< 


* Initialize menus<¢ 

Baud (0) =388¢ 

Baud$ (9) ="Baud Rate"+STRINGS (4, 44) +"3O89"< 
Baud (1)=1209¢ 

Baud#(1)="Baud Rate"+STRINGS (3,46) +" 1208"< 
< 

Parity#(@)=°n"< 

Pars (@)="Parity"+STRINGS (4, 44) +"none"< 
Parity®(1)="ea"<€ 

Par$(1)="Parity"+STRINGS (6, 46)+"even"< 
Parity#(2)=a"o"¢ 

Par#(2)="Parity"+STRINGS (7,46) +"odd"< 

< 

Length (9)=8 < 

Length#(@)="Word Length"+STRINGS (4, 46)+"6°¢ 
Length (1)=7¢ 

Length#(2)="Word Length"+STRING$ (4, 46)+°7"<¢ 
€< 


StBit (G=1¢ 

StBits(B="Stop Bits" +STRINGS (6, 46)+"1"< 
StBit (1)=2¢ 

StBit#(1)="Stap Bits" +STRINGS (4, 46)+"2"¢ 
€ 

Dup] ex (9) ="Dup! ex "+STRINGS (6,46) +°Ful 1 "< 
Duplex$(1)="Dupl ex "+STRINGS (4, 46) +"hal#°< 
€ 


Baud=1< 
Paritysl<¢ 
Length=1<¢ 
StBit=s< 
Duplex=@< 
< 


FOR jm1 TO 10¢ 

Macd (j) =CHRS (32) < 

NEXT€ 

CLOSE< 

ON ERROR GOTO FooledYou< 
OPEN “setup” FOR INPUT AS 2¢ 
€ 
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FooledYou:< 

IF ERR=@ THEN FooledMa< 

IF ERR=S3 THEN RESUME ForReal< 
ON ERROR GOTO a< 

€ 

FooledMe:< 

PRINT “Loading setup file"<¢ 
INPUT #2, Baud, Parity, Length, StBit, Duplex< 
LINE INPUT #2,Phones< 

FOR j=1 TO 10¢€ 

LINE INPUT #2,Mac$(j)< 

NEXT€ 

« 

ForRealr< 

CLOSE< 

ON ERROR GOTO TrapMe< 

GOSUB OpenUp< 

ON ERROR GOTO 9< 


MENU 1, @, 1, “Project"< 
MENU 1, 1, 1, “Quit"+SPACES(3)< 


MENU 2, @, 1, “Special "+SPACE$ (4) < 
"Si jattings’< 
MENU 2, 2, 1, “Load Settings"< 
hone Number "+CHRS (32) < 
MENU 2, 4, 1, "Dial"+8PACES(9)< 


MENU 3, 0, 1, "Settings"+SPACES$(@)< 
MENU 3, 1, 1, Baud$(Baud)< 

MENU 3, 2, 1, Paré(Parity)< 

MENU 3, 3, 1, Lengths (Length)< 
MENU 3, 4, 1, StBits(StBit)< 

MENU 3, 5S, 1, Duplex®(Duplex)< 


MENU 4, @, 1, “Transfer"+SPACES(4)< 
MENU 4, 1, 1, “Capture File"< 
MENU 4, 2, 1, "Send File"< 


DIM Macros¢(11)< 

MENU 5S, @, 1, "Macros"+SPACES(4)< 
MENU S, 1, 1, "Edit macro"<¢ 

FOR jm2 TO 11¢ 
Macro$(j)="Macro"+CHRS (32) +STRB(j-1)< 
MENU S, 4, 1, Macros(jd< 

NEXT€ 

€ 

* Sorry, AmigaBASIC won’t permit< 

’ a borderless 8@-column window. < 


WINDOW 1, “AmigaTerm 1.0", (8,8)-(631,186), 20¢ 
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WIDTH 79¢ 

GOSUB Bold< 

cLs< 

PRINT “Welcome to AmigaTerm 1.@ “<€ 

PRINT "Press the right mouse button to view options 
Wg 

GOSUB Roman< 

RETURNS 

€ 


TrapMe: < 

GOSUB Bold< 

Errorstatus=-1¢ 

IF ERR@S3 THEN PRINT "* File not found *":GOTO ErrO 
uté 

IF ERR®61 THEN PRINT "* Disk is full *”° GOTO ErrO 
ute 

IF ERR=44 THEN PRINT “% Bad filename &" :GOTO ErrO 
ut< 

IF ERR@7S THEN PRINT “Disk is write-protected %":G0 
TO ErrOut< 

PRINT “Error #" + STRS(ERRI< 

ErrOuts< 

GOSUB Roman< 

RESUME NEXT< 

< 

LibTrapz< 

IF ERR¢>S3 THEN CLOSE: END< 

PRINT "Root directory of this disk does not contain 
the file"< 

PRINT “that I need to handle graphics. Exit BASIC a 
nd copy"<€ 

PRINT “GRAPHICS.BMAP from the BASICDEMOS directory 
ef your"< 

PRINT “EXTRAS disk to this disk. Then rerun the pro 
gram. “< 

CLOSE< 

END< 

€ 
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“Amiga Math Graphics” program 
listing 159-62 

“Amiga Puzzle” program listing 
99-102 . 

“AmigaTerm” program listing 215-224 

ASSIGN 188-89 

autoanswer 203 

\ key 182 

batch files 180-89 

baud rate 214 

“Beehive” program listing 30-37 

“Biker Dave” program listing 47-52 

black box routine 194 

box subprogram 150-51 

bulletin board systems (BBSs) 204 

BUTTON 163 

buttons 163 

Cartesian coordinate system 158 

“Chain Reaction” program listing 
126-31 

CLI171 

command line interface (CLI) 171-73 

custom menus 136 

custom printer driver 191 

definition module 194 

DIALOG 163 

dialog box 163 

DIM 135 

double-precision variable 138 

downloading 202 

duplex 214 

ECHO 181 

echo 214 

ED 171-79, 182-83, 184 
extended commands table 177-79 
immediate commands table 176-77 

EDIT 171 

end of file 182 

event subroutine 139 

event traps 139 

extended commands 174-76 

gender-changer 190, 201 

generic driver 191 

“Getline Input Routine” program listing 
151-53 

getline subprogram 146-50 

ghosted 136 


global variables 164 
“Guess the Number” program listing 
196-97 

“Hex War’ program listing 108-24 
“Hickory, Dickory, Dock” program 
listing 79-83 

immediate commands 174 

implementation module 194 

input routine 146 

interrupts 139 

Introduction to Amiga 190, 191 

labeled subroutines 154 

labels 188 

“Laser Strike” program listing 54-58 

line numbers 135 

local variables 164 

mantissa 138 

modem 201 

Modula-2 193-95 

module 194 

MOUSE 163 

multitasking 99, 195 

null string 147, 149 

# sign 137-38 

origin 158 

PALETTE 157 

parameters 185, 186 

parity 214 

“Pioneer” program listing 63-77 
polar coordinate system 158 

printer driver 191 

printers 190-92 

PRINT USING 137 

public domain software 203 
“Pyramid Power” program listing 


requesters 164 

requester windows 163-67 

“Requester Window Subprogram” 
program listing 167 

SAY 183 

sealing 155 

script file 181 

semicolon 175 
juence file 181 

shared variables 164 
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startup-sequence 183-85 
stop bit 214 

subprogram 146, 164 

“Switchbox” program listing 90-96 
sysops 205 

telecommunications costs 204-7 
terminal program 208 

text editors 171 

theta 158 
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“Tightrope” program listing 19-27 
time 99 


““Tug-o-War" program listing 5-7 
“UFO Invasion’ program listing 9-16 
uploading 202 

WINDOW 163 

Wirth, Nicklaus 193 
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To order your copy of COMPUTEI's First Book of Amiga Disk, 
call our toll-free US order line: 1-800-346-6767 (in NY 212- 
887-8525) or send your prepaid order to: 


First Book of Amiga Disk 
COMPUTE! Publications 
P.O. Box 5038 

F.D.R. Station 

New York, NY 10150 


All orders must be prepaid (check, charge, or money order), NC 
residents add 5% sales tax. NY residents add 8.25% sales tax. 


Send —____ copies of COMPUTE!’s First Book of Amiga Disk at 
$15.95 per copy. 


Subtotal $. 

Shipping and Handling: $2.00/disk $. 
Sales tax (if applicable) $. 

Total payment enclosed $. 


D Payment enclosed 
oO Charge 0 Visa o MasterCard co American Express 


Acct.No, —_______ EEX, Dato 
Required) 
Name 
Address 
Cty ——_— State Zip 


Please allow 4-5 weeks for delivery. 
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Ask your retailer for these COMPUTE! Books or order directly from 
COMPUTEI. 
[Call toll free (in US) 1-800-346-6767 (in NY. 212-887-8525) or write COM- 
| + BUTE! Books, P.O. Box 5038, F.D.R. Station, New York, NY 10150. 


— 
rene 
Quantity Title Price” Total 
_—_____ COMPUTE!'s Beginner's Guide to the Amiga 
(025-4) $16.95 —___ 
—— COMPUTEI's AmigaDOS Reference Guide 
(047-5) $16.95 
—__— Elementary Amiga BASIC (041-6) $14.95 
—— COMPUTE!’s Amiga Programmer's Guide (028-9) $16.95 —_ 
——— COMPUTEI’s Kids and the Amiga (048-3) $14.95 
——___ Inside Amiga Graphics (040-8) $17.95 
———. Advanced Amiga BASIC (045-9) $17.95 
—— _ COMPUTEI's Amiga Applications (053-X) $16.95 
——. Learning C: Programming Graphics on the $1895 
Amiga and Atari ST 
— COMPUTEI’s First Book of Amiga (090-4) $16.95 


“Add $2.09 per book for shipping and handling, 
Outside US add $5.00 air mall or $2.00 surface mall. 


NC residents add 5% sales fax 
NY residents add 8.25% sales tax 
Shipping & handling: $2.00/book 
Total payment 


ec All orders must be prepald (check, charge, or money order). 
|; All payrnents must be In US funds. 

OD Payment enclosed. 

Charge OVisa O MasterCard O American Express 


! Acct. No.. Exp. Date. 


City. State Zip. 
“Allow 4-5 weeks for delivery. 
fal Prices and availability subject to change. 
{Current catalog available upon request. 
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COMPUTE! Books 


Ask your retailer for these COMPUTE! Books or order directly from 
COMPUTE. 

Call toll free (in US) 800-346-6767 {in NY 212-887-8525) or write 
COMPUTE! Books, P.O. Box 5038, F.D.R. Station, New York, NY 10150 


The Home Computer Wars: 
An Insider's Account of Commodore and Jack Tramiel 


Quantity Tite Price” Total 
——_. Machine Language for Beginners (11-4) $16.95 
———~ The Second Book of Machine Language (53-1) $16.95 ___ 
——— COMPUTEI's Guide to Adventure Games (67-1) $14.96 
——— _ Computing Together: A Parents & Teachers 

Guide to Computing with Young Children (51-5) $12.95 
———._ COMPUTE!'s Personal Telecomputing (47-7) $1295 _ 
——. BASIC Programs for Small Computers (38-8) $12.95 
_——-— Programmer's Reference Guide to the 

Color Computer (19-1) $12.95 
_——_ _ Home Energy Applications (10-8) $14.95 _ 
Hardback (75-2) $16.95 
——_ Paperback (78-7) $995 
————. The Book of BASIC (61-2) $1295 ____ 
——~ The Greatest Games: The 93 Best Computer 

Games of all Time (95-7) $ 9.95 
——_ Investment Management with Your 

Personal Computer (005) $14.95 —__ 
——._ 40 Great Flight Simulator Adventures (022) $10.95 ____ 
——~ 40 More Great Flight Simulator Adventures (043-2) $12.98 __ 
——— 100 Programs for Business and Professional Use (017-3) $24.95 ___ 
—_— From BASIC to C (026) $16.95 ___ 
—— The Turbo Pascal Handbook (037) $1495 —___ 
——-._ Eectronic Computer Projects (052-1) $10.95 

Flying on Instruments with Flight Simulator 
—— perfect bound (091-2) $9.95; ___. 
———_ wire bound (103-X) $12.95 

Jet Fighter School 
—— ___ perfect bound (092-0) $995 
——__ wire bound (104-8) $12.95 


* Add $2.00 per book for shipping and handing. 
Outside US add $5.00 air mail or $2.00 surface mall. 
NC residents add 5% sales tax. 
NY residents add 8.25% sales tax 
Shipping & handling: $2.00/book 
Total payment 
All orders must be prepaid (check, charge, or money order). 
All payments must be in US funds. 
O Payment enclosed. 
Charge O Visa O MasterCard O American Express 


Acct. No. Exp. Date 


(Required) 


City State Zp 
“Allow 4-5 weeks for delivery. 

Prices and avaiabilty subject to change. 

‘Current catalog evatable upon request. 
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Amiga Power 


COMPUTE!'s First Book of Amige is a collection of some of the 
finest BASIC programs and tutorials written for the Commodore 
Continuing its support for this powerful computer, COM- 
FUTE tans tne re seep amr nay i 
ational computing, presents the best programs and articles 

Amiga from COMPUTE! as well as some 

programs. Here's a sample of what's inside: 

+ “AmigaTerm,” a powerful terminal program that allows 
Amiga, witha modem, to talk with ther computes around the 
country and around the world. 
+ Stra such as “Beehive,” “Hex Wars," “Chain Reac- 


+ Tutorials that show you how to create batch files, use the built- 
in AmigaDOS editor, effectively program in BASIC, and more. 

COMPUTE! Books is proud to add this first collection 
to its list of books on the And sinoe 's First 
Book of Amiga is from Publications, you can rely on 
high-quality programs that have been fully tested and are ready 
to run, 


‘The programm in thin took are available on « companion dak. See Ow coupon in 
toe back bow detain. 


ISBN 0-87455-090-4 


